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PREFACE 


This  is  the  final  report  of  a  study  performed  by  the  University  of 
Minnesota,  Minneapolis,  Minnesota,  under  Contract  No.  DACW45-74-C-0066  with 
the  U.  S.  Army  Engineer  Waterways  Experiment  Station  (WES),  Vicksburg,  Miss¬ 
issippi.  This  work  was  sponsored  by  the  Office,  Chief  of  Engineers,  U.  S. 
Army.  This  study,  which  was  original iy  funded  under  the  Civil  Works  Investi¬ 
gation  Study  (CWIS)  Program,  "Materials-Structures,"  by  the  Missouri  River 
Division,  Corps  of  Engineers,  resulted  in  a  report  entitled  "Rational  Design 
of  Tunnel  Supports:  A  Computer  Model  for  Rock  Mass  Behavior  Using  Inter¬ 
active  Graphics  for  the  Input  and  Output  of  Geometrical  Data."  Following 
this  preliminary  study  with  its  emphasis  on  rock  mass  behavior,  the  WES  con¬ 
tinued  the  contract  under  the  CWIS  Program,  "Materials-Rock. " 

The  study  was  conducted  by  Dr.  M.  D.  Voegele,  Department  of  Civil  and 
Mineral  Engineering,  University  of  Minnesota,  under  the  supervision  of  Pro¬ 
fessor  Charles  Fairhurst,  Department  Chairman.  ^Technical  contract  monitor 
for  the  WES  was  Mr.  J.  B.  Palmerton,  Research  Civil  Engineer,  Engineering 
Geology  and  Rock  Mechanics  Division  (EG&RMD),  WES.  Dr.  D.  C.  Banks,  Chief, 
EG&RMD,  was  the  Contracting  Officer's  Representative. 

During  the  period  of  this  contract  and  preparation  of  the  report,  the 
Directors  of  the  WES  were  COL  J.  L.  Cannon,  CE,  and  COL  N.  P.  Conover,  CE. 
Technical  Director  was  Mr.  F.  R.  Brown. 
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CHAPTER  I 
INTRODUCTION 


The  goal  of  engineering  analysis  is  intelligent  design.  This  is 
true  for  disciplines  which  are  based  upon  theoretical  concepts  discov¬ 
ered  literally  centuries  ago  as  well  as  for  more  recently  recognized 
disciplines  such  as  Rock  Mechanics  engineering.  Whereas  the  researcher 
in  most  fields  of  engineering  has  at  his  disposal  analytical  techniques 
which  have  been  proven  through  decades  of  use  and  sound  analytical 
development,  the  Rock  Mechanics  researcher  has  a  limited  number  of 
analytical  techniques  at  his  disposal.  Many  of  the  problems  encountered 
in  the  field  of  Engineering  Geology  and  Mining  engineering  require  the 
specification  of  the  response  behavior  characteristics  of  a  jointed 
rock  mass.  Foundation  design  requires  a  knowledge  of  the  stiffness  of 
the  rock  mass  so  that  settlements  and  forces  can  be  predicted  accurately. 
Highway  cuts  in  rock  must  be  designed  so  as  to  be  completely  safe  from 
slope  failures.  Mines,  shafts  and  tunnels  must  all  be  designed  with  a 
knowledge  of  the  behavior  of  the  rock  mass.  The  economic  design  of 
open  pit  mines  relies  heavily  on  the  pit  slope  angle;  a  change  of  only 
a  few  degrees  in  the  slope  angle  has  a  significant  effect  on  the  strip¬ 
ping  ratio  and  thus  the  economic  success  of  the  mining  venture.  The 
design  of  dam  foundations  or  abutments  is  particularly  sensitive  to 
the  behavior  of  the  rock  mass.  Settlements  which  can  be  tolerated  by 
dam  foundations  are  quite  small.  .The  failure  to  consider  all  of  the 
response  characteristics  of  a  rock  mass  in  such  situations  has  in  the 
past  led  to  catastropic  failures  and  the  attendant  loss  of  life.  In  all 
of  these  problems  the  role  of  mass  jointing  can  play  a  significant  role 
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in  the  mass  response,  but  all  too  frequently  the  exact  behavior  of  the 
joints  is  poorly  understood.  Intelligent  design  requires  an  understand¬ 
ing  of  this  behavior. 

The  analytic  techniques  at  the  disposal  of  the  Rock  Mechanics 
engineer  upon  which  the  design  must  be  based  are  quite  limited,  and 
typically  have  been  borrowed  from  other  fields.  The  principles  of 
classical  mechanics  are  often  used  as  an  aid  in  analysis  but  it  is 
frequently  observed  that  the  behavior  of  a  rock  mass  cannot  be  char¬ 
acterized  by  the  assumptions  inherent  in  these  classical  methods.  The 
fundamental  assumptions  of  a  continuum  characterization,  homogeneity 
and  linearly  elastic  response,  are  often  seen  to  be  too  limited  in 
scope  to  characterize  adequately  the  behavior  of  a  rock  mass.  That 
group  of  materials  which  we  classify  as  rock  is  typically  non-homoge- 
neous,  anisotropic,  and  often  discontinuous;  of  these  characteristics 
the  discontinuous  nature  of  the  rock  mass  is  certainly  the  most  influ¬ 
ential  in  governing  the  ultimate  behavior  of  the  mass  when  subjected 
to  some  external  stimulus.  Constitutive  relations  can  be  generalized 
to  include  the  effects  of  anisotropic  structure;  for  example,  a  recent 
paper  by  Singh  (1973)  describes  the  development  of  an  anisotropic 
continuum  model  in  which  the  average  influence  of  planar  features  can 
be  taken  into  account. 

Finite  Element  methods  provide  an  accurate,  approximate,  method 
of  solving  problems  in  elasticity.  The  formulation  of  a  "joint" 
element  by  Goodman  et  al .  (1968)  greatly  increased  the  potential  of 
the  Finite  Element  methods  in  Rock  Mechanics  problems.  However, 

Finite  Element  methods  still  strictly  model  a  continuum  and  thus 


large  displacements  are  not  possible  except  through  iteration  with 
each  new  iteration  utilizing  parameters  derived  from  the  previous 
i teration. 

To  portray  adequately  the  response  of  a  jointed  rock  mass  requires 
the  correct  modeling  of  the  discontinuities  present,  that  is,  the 
joints  must  have  both  normal  and  shear  stiffness,  they  must  obey  some 
type  of  failure  law  and,  most  important,  the  blocks  defined  by  the 
joints  must  be  free  to  undergo  large  displacements  and  rotations  if 
conditions  so  dictate.  A  computer  model  which  satisfies  all  of  these 
criteria  was  presented  by  Cundall  (1971b). 

The  computer  model  for  simulating  progressive  large  scale  movements 
in  blocky  rock  systems  which  has  since  become  known  as  the  Distinct 
Element  method  utilizes  semi-rigid  rock  blocks  to  characterize  the 
behavior  of  a  discontinuous  rock  mass.  The  interaction  between  the 
blocks  is  governed  by  realistic  friction  laws  and  simple  stiffness 
parameters.  There  are  no  arbitrary  limits  on  the  amount  of  displacement 
and  rotation  allowed  to  each  block  and  any  block  is  permitted  to  touch 
any  other  block.  True  progressive  failure  is  thus  modeled  and  the  mode 
of  failure  is  automatically  selected  by  the  program  since  the  system 
fails  by  that  mode  with  the  lowest  stability.  The  program  allows 
individual  study  of  the  effects  of  joint  geometry,  joint  parameters, 
loading  conditions  and  excavation  procedure. 

The  Distinct  Element  method  portrays  a  rock  mass  as  a  two  dimen¬ 
sional  assemblage  of  discrete  blocks.  There  are  no  restrictions  on 
block  shapes  or  magnitudes  of  displacements  and  rotations.  In  the 
configuration  used  in  this  dissertation,  the  program  is  interfaced 
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with  a  graphics  terminal  so  that  movements  of  the  blocks  can  be 
observed  as  the  computer  calculates  them. 

The  equation  governing  the  behavior  of  the  blocks  is  solved  in 
an  explicit  rather  than  implicit  manner.  Because  the  jointed  rock 
mass  may  fail  in  such  a  way  that  the  movement  of  the  blocks  leads 
to  a  new  equilibrium  position,  an  adequate  block  model  must  take 
this  into  consideration.  An  implicit  solution  assumes  path  independ¬ 
ence;  that  is,  the  final  answer  must  be  the  same  no  matter  how  the 
blocks  move  to  get  there.  It  seems  safe  to  assume  that  path  dependent 
phenomena  such  as  separation  along  joints,  stick-slip  behavior  of 
joint  surfaces  and  block  interlocking  could  not  be  modeled  adequately 
except  by  an  iterative  procedure  using  very  small  time  increments. 

It  should  be  recognized  that  by  using  this  approach,  one  would  simply 
be  using  an  implicit  solution  to  model  the  solution  that  would  have 
been  obtained  directly  by  an  explicit  approach. 

The  major  approximation  inherent  in  the  Distinct  Element  method 
is  that  deformations  occur  along  the  surfaces  of  the  rock  blocks.  This 
is  accomplished  by  modeling  each  block  as  being  rigid  with  what  amounts 
to  a  thin  elastic  region  around  the  perimeter.  A  consequence  of  this 
is  that  the  program  should  produce  the  best  solutions  in  situations 
where  deformation  is  governed  by  movement  along  joint  surfaces.  On 
the  other  hand,  those  situations  where  elastic  deformations  of  the  rock 
mass  are  of  the  same  order  of  magnitude  as  the  movement,  along  the  joint 
surfaces  are  perhaps  best  modeled  by  elastic  solutions  of  the  Finite 
Element  type  or  by  a  continuum  characterization. 
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Joint  inclination  and  confining  pressure  play  a  significant 
role  in  the  determination  of  the  failure  mode.  The  combination  of 
the  conditions  of  low  confining  pressures  and  favorable  (or  unfavorable 
dependent  on  viewpoint)  joint  orientation  can  lead  to  failure  modes 
that  are  joint  controlled.  When  viewed  in  terms  of  overall  mass 
stiffness  (i.e.,  deformation  resulting  from  the  application  of  external 
load),  it  can  be  seen  intuitively  that  those  failures  in  situations 
of  low  overall  stiffness  are  probably  joint  controlled  while  the 
higher  stiffness  models  exhibit  failures  that  are  essentially  inde¬ 
pendent  of  jointing. 

The  research  described  in  this  dissertation  has  as  its  basis 
two  main  goals.  First,  owing  to  the  relative  newness  of  the  Distinct 
Element  method,  a  verification  study  has  been  undertaken  to  determine 
whether  or  not  the  Distinct  Element  method  calculates  solutions 
similar  to  other  methods  commonly  used  to  analyze  jointed  rock  masses. 

The  second  goal  of  the  research  is  to  apply  the  Distinct  Element  method 
to  an  engineering  problem;  in  this  particular  case  to  the  design  of 
supports  and  the  behavior  of  the  rock  mass  surrounding  an  underground 
excavation.  Underlying  these  two  main  research  goals  are  several 
attendant  yet  equally  important  goals.  One  underlying  theme  concerns 
the  application  of  computer  interactive  graphics  to  engineering  analysis. 
Another  underlying  theme  concerns  the  potential  perspective  of  the 
Distinct  Element  method. 

To  introduce  the  investigations  of  the  behavior  of  jointed  rock 
masses  performed  with  the  Distinct  Element  method,  a  brief  survey  of 
the  methods  commonly  used  to  analyze  the  behavior  of  jointed  media  is 
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presented.  Common  to  those  methods  surveyed  is  the  realization  that 
the  observed  behavior  of  a  jointed  mass  is  different  than  the  behavior 
of  a  continuum.  Several  of  the  methods  adopt  the  approach  that  the 
behavior  of  the  jointed  mass  is  fundamentally  similar  to  that  of  a 
continuum;  the  same  basic  equations  are  assumed  to  govern  both  models 
but  the  constitutive  relations  are  modified  for  the  jointed  models  to 
simulate  the  presence  of  jointing.  Other  methods  typically  propound  the 
fact  that  the  jointing  governs  the  mass  behavior  and  thus  postulate 
governing  equations  based  upon  assumed  or  observed  behavior.  This 
introductory  section  concludes  with  a  brief  overview  of  the  Distinct 
Element  formulation  and  presents  several  examples  illustrating  applica¬ 
tions  of  the  Distinct  Element  program. 

Confidence  in  the  use  of  approximate  numerical  techniques  such  as 
the  Distinct  Element  method  can  best  be  developed  by  comparing  calculated 
results  to  known  solutions.  However,  for  the  particular  case  of  the 
behavior  of  a  jointed  rock  mass,  comprehensive  analytical  solutions  do 
not  exist.  The  second  major  portion  of  this  dissertation  summarizes  the 
results  of  numerous  analyses,  the  sole  purpose  of  which  was  to  demonstrate 
the  validity  of  solutions  calculated  by  the  Distinct  Element  method.  The 
models  chosen  for  comparison  are  typically  simple  and  care  was  exercised 
to  ensure  that  the  behavior  of  the  chosen  model  was  described  adequately 
by  its  solution.  Most  of  the  models  chosen  for  the  comparisons  were 
based  upon  Limit  Equilibrium  principles,  and  the  Distinct  Element 
calculated  solutions  were  seen  to  agree  quite  well  with  the  Limit 
Equilibrium  solutions  in  all  cases.  This  general  theme  of  comparison  to 
existing  solutions  is  not  limited  to  this  portion  of  the  dissertation , 
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however.  Wherever  possible  in  the  later  portions  of  the  dissertation, 
every  attempt  is  made  to  compare  Distinct  Element  calculated  solutions 
to  other  solutions. 

The  remainder  of  the  dissertation  is  concerned  with  the  behavior 
of  a  jointed  mass  when  disturbed  by  an  excavation.  The  discussion 
covers  two  broad  topics:  excavations  which  are  stable  without  external 
support;  and,  excavations  which  depend  upon  externally  applied  support 
for  stability.  The  interactive  capabilities  of  the  graphics  terminal 
are  fully  utilized  in  these  studies,  both  to  observe  the  behavior  of 
the  mass  and  to  modify  the  model  while  the  program  is  running. 

Chapter  4  presents  the  results  of  analysis  of  stable  excavations 
in  jointed  rock.  The  behavior  is  illustrated  by  means  of  contact 
force  distributions  within  the  mass  and  interpreted  as  being  governed 
by  the  development  of  arches  within  the  mass.  The  mechanisms  responsi¬ 
ble  for  the  development  of  the  arching  behavior  are  investigated  and 
an  interpretation  utilizing  arching  theories  is  presented. 

Chapter  5  presents  the  results  of  analyses  of  excavations  in 
jointed  rock  which  are  not  stable  unless  an  external  support  is 
provided.  The  behavior  is  described  quantitatively  by  ground  reaction 
curves,  relating  the  deflection  of  the  excavation  roof  to  the  magnitude 
of  the  required  support  force.  These  curves  reflect  the  interaction 
between  the  rock  mass  and  the  support  system  in  an  attempt  to  guide 
the  research  along  paths  of  investigation  that  are  consistent  with 
current  thought  regarding  rational  modeling  of  tunnel  behavior.  The 
results  of  these  analyses  are  then  compared  to  several  methods, 
primarily  of  an  observational  nature,  commonly  used  to  design  support 
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systems  for  excavations  in  jointed  rock.  The  rationale  governing 
these  comparisons  is  an  attempt  to  provide  some  manner  of  analytic 
support  for  these  routinely  used  design  schemes. 

The  dissertation  concludes  with  a  summary  of  pertinent  results 
and  a  critical  assessment  of  the  potential  of  the  method  in  engineering 
analyses  and  design.  The  assessment  of  the  potential  emphasizes  the 
limitation  of  the  model  in  its  present  configuration  with  particular 
reference  to  the  mini-computer  based  configuration.  Suggestions  for 
further  development  of  the  model  are  also  presented,  outlining  areas  of 
potentially  fruitful  research. 


CHAPTER  II 
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THE  ANALYSIS  OF  THE  BEHAVIOR  OF  A  ROCK  MASS 
CONTAINING  PLANES  OF  DISCONTINUITY 

2.1  Introduction 

Before  introducing  the  concepts  underlying  the  Distinct 
Element  model,  a  brief,  historical  review  of  the  methods  of 
analysis  commonly  used  when  dealing  with  the  behavior  of  a 
discontinuous  rock  mass  is  presented.  An  exhaustive  bibliography 
on  jointed  rock  has  been  avoided,  since  a  significant  portion  of 
all  publications  dealing  with  Rock  Mechanics  would  need  to  be 
included.  Rather,  this  chapter  presents  an  overview  of  the 
methods  of  analysis  used  when  dealing  with  jointed  rock,  concen¬ 
trating  on  those  methods  that  are  accepted  by  engineers  involved 
in  actual  design.  The  overview  is  relatively  complete,  including 
examples  of  all  methods  recognized  to  be  in  use  at  the  present 
time. 

A  general  survey  of  the  response  characteristics  of  a  jointed 
rock  mass  is  presented  first,  to  enumerate  those  behavior 
mechanisms  which  must  be  incorporated  in  any  analysis  of  a  jointed 
rock  mass  if  it  is  to  portray  accurately  the  behavior  of  the  mass. 

An  overview  of  the  methods  of  analysis  is  then  presented.  The 
methods  lend  themselves  nicely  to  categorization  in  the  following 
groups: 

1)  Direct  application  of  the  principles  of  Soil  Mechanics 
to  the  behavior  of  rock  masses*, 

2)  application  of  elastic  theory,  both  in  the  classical 


sense  and  by  use  of  Finite  Elements', 
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3)  behavior  models  including  direct  physical  modeling  as  well 
as  models  based  on  observed  behavior;  and, 

4)  methods  of  analysis  utilizing  Limit  Equilibrium  theories 
as  developed  in  the  fields  of  plasticity  and  soil 
mechanics. 

The  chapter  concludes  with  a  brief  introduction  to  the 
Distinct  Element  method  of  calculating  the  behavior  of  a  mass 
separated  into  distinct  blocks  by  jointing  or  other  discontinuity 
surfaces.  The  applicability  of  the  model  is  discussed  by  way  of  a 
short  presentation  of  worked  examples.  It  is  hoped  that  the 
examples  selected  give  some  insight  into  the  scope  and  power  of  the 
method  as  well  as  demonstrating  typical  problems  which  can  be 
analyzed  by  the  method. 
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2.2  The  Response  Characteristics  of  a  Rock  Mass 

The  obvious  trend  in  the  past  several  decades  has  been  to 
excavations,  both  in  mining  ventures  and  the  construction  of  c  i ' ' i 1 
works  projects,  on  a  scale  never  before  attempted.  The  mining  of 
vein  type  deposits  frequently  takes  place  in  poor  quality  rock;  in 
the  case  of  the  civil  works  projects,  the  best  sites  in  terms  of 
rock  quality  have  already  been  selected  for  previous  construction. 
Since  it  was  no  longer  possible  to  ignore  the  rock  behavior,  the 
traditional  concept  of  the  soundness  and  stability  of  a  rock  mass 
had  to  be  re-evaluated.  In  recognition  of  this  requirement,  a 
study  group,  the  International  Study  Group  for  Geomechanics,  was 
founded  in  Salzburg,  Austria  in  1951.  The  goal  of  this  study  group 
was  to  develop  relations  among  all  workers  dealing  with  construction 
in  rock  and  to  develop  a  practical  approach  to  the  mechanics  of  rock 
masses. 

The  findings  of  the  study  group,  which  was  succeeded  by  the 
International  Society  of  Rock  Mechanics  in  1962,  were  presented  by 
John  (1962),  and  the  following  few  paragraphs,  quoted  directly  from 
John's  paper,  attempt  to  summarize  the  philosophy  of  the  Salzburg 
group. 

"Because  the  particular  properties  of  rock  as  foundation  and 
construction  material  deviate,  in  many  respects,  from  those 
of  other  foundation  materials,  rock  mechanics  is  compelled  to 
follow  its  own  course.  The  continuity  of  soil  masses  ... 
resulted  in  methods  for  analyzing  a  continuum,  thus  defining 
the  concept  of  soil  mechanics.  In  situ  rock,  however, 
contrary  to  the  wide  spread  assumption  in  foundation  engineer¬ 
ing,  is  rarely  homogeneous;  rarely  without  mechanical  discon¬ 
tinuities.  Therefore,  rock  mechanics  is,  in  most  cases,  to 
be  a  study  of  a  jointed  structure,  of  a  discontinuum. " 


t 
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The  philosophy  of  the  Salzburg  group  emphasizes  the 
collaboration  between  civil  and  mineral  engineers  and  geologists. 
The  interrelation  of  engineers  and  geologists  is  readily  apparent 
in  the  fundamental  concepts  of  Rock  Mechanics  as  outlined  by  John: 

1)  "For  most  engineering  problems,  the  technical  properties 
of  a  rock  mass  depend  far  more  on  the  system  of  geological 
separations  within  the  mass  than  on  the  strength  of  the 
rock  material  itself.  Therefore,  rock  mechanics  is  to  be 
a  mechanics  of  a  discontinuum,  that  is,  a  jointed  medium” 

2)  "The  strength  of  a  rock  mass  is  considered  to  be  a 
residual  strength  that,  together  with  its  anisotropy,  is 
governed  by  the  interlocking  bond  of  the  unit  rock  blocks 
representing  the  rock  mass" 

3)  "The  deformability  of  a  rock  mass  and  its  anisotropy 
result  predominately  from  the  internal  displacements  of 
the  unit  blocks  within  the  structure  of  a  rock  mass." 

C.  Jaeger  (1964)  presented  a  similar  philosophy  to  that  of 
John  and  noted  that  engineering  calculations  should  take  a  far 
more  detailed  view  of  the  actual  state  of  the  rock  mass.  Recog¬ 
nizing  the  inadequacy  of  the  (then)  present  state  of  the  art,  he 
outlined  a  program  of  suggested  research,  emphasizing  model  tests 
and  investigations  of  stress  distributions  in  jointed  media. 

Fairhurst  (1967),  in  assessing  the  influence  of  defects  and 
discontinuities  on  the  behavior  of  a  rock  mass  noted  that  failure 
in  a  rock  mass  always  begins  at  some  structural  defect  and  that 
the  analysis  of  the  behavior  of  the  mass  must  consider:  the 
orientation  and  distribution  as  well  as  the  magnitude  of  the 
applied  forces;  the  distribution  and  orientation  of  structural 
defects  with  respect  to  the  applied  forces;  and  the  energy 
available  to  cause  continuing  movement  in  the  mass. 


One  final  requirement  of  any  method  used  to  calculate  the 
response  of  a  jointed  mass  is  that  it  should  incorporate  all  of  the 
kinematically  possible  failure  modes.  In  addition  to  sliding  on 


discontinuity  planes,  rotation  of  individual  blocks  about  their 
centroids  is  also  kinematically  possible  as  reported  in  field 
exposures  by  Muller  (1964)  and  DeFreitas  and  Watters  (1973)  and  on 
a  laboratory  scale  by  Hoffman  (1970).  An  analysis  incorporating 
only  force  equilibrium  and  ignoring  moment  equilibrium  could  easily 
result  in  the  neglect  of  an  important  response  of  the  mass. 


A 
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2.3  Direct  Application  of  Soil  Mechanics  Theories 

Recognizing  that  large  displacements  preclude  the  use  of 
elastic  theory,  Seldenrath  (1951)  idealized  the  strata  comprising 
European  coal  measures  as  masses  of  loose  structure,  and  attempted 
to  apply  Soil  Mechanics  principles  to  the  problems  of  calculating 
fracture  planes  due  to  subsidence  and  calculating  loads  on  props  at 
a  working  longwall  face.  To  the  extent  that  he  assumed  reasonable 
values  for  friction  coefficients,  he  was  able  to  generate  results 
that  were  confirmed  in  practice. 

Morrison  and  Coates  (1955)  presented  a  method  for  the 
estimation  of  stresses  surrounding  a  circular  vertical  shaft  by 
means  of  plastic  flow  relationships  deduced  from  Mohr’s  circle  of 
stress.  They  questioned  the  utility  of  their  method  for  practical 
design  and  concluded  that  although  the  approach  was  better  than  a 
simple  elastic  analysis,  the  actual  material  behavior  was  still 
more  complex. 

Wilson  (1959)  applied  general  Soil  Mechanics  principles  to  the 
problem  of  slope  stability  in  open  pit  mines.  He  concluded  that 
failures  of  cut  slopes  in  fractured  and  fissured  rock  were  often 
the  result  of  uplift  pressures  in  the  v/ater  behind  the  slope  face. 
Observing  that  the  strength  of  granular  material  appeared  to  be 
independent  of  particle  size  provided  that  a  constant  degree  of 
compactness  was  maintained,  Wilson  extrapolated  this  result  to  the 
analysis  of  the  behavior  of  broken  and  fissured  rock.  Since  the 
scale  of  the  jointing  relative  to  the  size  of  the  pit  was  small, 
Wilson  analyzed  the  stability  of  cut  slopes  using  the  principles 


of  Soil  Mechanics. 

Jaeger  (1970)  analyzed  highly  jointed  and  broken  rock  by 
regarding  the  jointing  as  random  and  applying  the  laws  of  Soil 
Mechanics  to  its  behavior.  His  analysis  suggested  that  values  of 
Youngs'  modulus  measured  by  plate  bearing  tests  on  jointed  material 
for  which  the  plate  covered  several  joints  were  in  reasonable 
agreement  with  laboratory  values  measured  on  actual  specimens  of 
the  material  containing  many  joints. 
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2.4  Elastic  Theories  Applied  to  Rock  Masses 

Elastic  analyses  of  discontinuous  or  jointed  masses  can  be 
conveniently  grouped  into  tv/o  classes  although  the  difference 
between  the  methods  is  one  of  application  rather  than  fundamental 
difference  in  the  theory.  The  first  class  comprises  methods  of 
analysis  which  directly  utilize  classical  elastic  theory; 
frequently  the  input  parameters  are  modified  to  reflect  different 
behavior  modes  due  to  the  presence  of  discontinuities.  The 
second  class  comprises  Finite  Element  type  analyses  wherein  the 
continuum  is  discretized  and  a  stiffness  relationship  is  formulated 
for  applied  forces  and  nodal  point  displacements.  This  latter 
class  is  obviously  well  suited  to  the  situation  of  varying  material 
properties  throughout  the  mass. 

2.4.1  Classical  continuum  elastic  theories 

Obert,  Duvall,  and  Merrill  (1960)  restricted  their  analysis 
of  the  design  of  underground  openings  to  competent  rock  but 
included  horizontally  stratified  rock  provided  that  the  bond  between 
layers  wa's  weak. 

Beam  and  Plate  theory  were  used  for  the  analysis  but  it  was 
noted  that  requirements  of  an  elastically  perfect,  homogeneous, 
isotropic  mass  precluded  the  possibility  of  any  fracturing  in  the 
roof  unless  it  was  parallel  to  the  span  direction. 

Barla  (1970)  presented  constitutive  relations  for  the  non¬ 
linear  and  time  dependent  behavior  of  rock  masses  but  did  not 
present  relations  for  discontinuous  masses. 


Smart  (1970)  developed  a  continuum  model  consisting  of  rigid 
cubical  blocks  set  in  a  clay  matrix  and  found  good  agreement  with 


field  data. 

Singh  (1973a,  1973b)  used  strain  energy  principles  to  derive 
general  constitutive  equations  for  a  rock  mass  containing  an 
arbitrarily  oriented  set  of  orthogonal,  discontinuous  joints  in 
terms  of  a  "stress  concentration  factor"  matrix  (which  he  computed 
by  Finite  Element  analysis).  His  model  gave  good  results  for 
regions  of  low  stress  gradient  but  was  found  to  give  poorer  results 
in  regions  of  high  stress  gradient. 

2.4.2  Finite  Element  analyses 

One  particular  type  of  elastic  analysis  has  gained  acceptance 
since  its  inception.  The  Finite  Element  analysis,  particularly  in 
light  of  the  modifications  described  below,  has  become  a  routinely 
used  tool  in  Rock  Mechanics  problems. 

Zienkiewicz  et  al .  (1968)  noted  that  linear  elastic  solutions 
indicating  regions  of  tension  in  a  rock  mass  were  probably 
unrealistic  for  the  general  case  of  a  cracked  and  fissured  mass. 
Using  a  Finite  Element  formulation  with  an  included  "stress 
transfer"  iteration  they  were  able  to  calculate  a  solution  with 
no  tension  present  in  the  mass.  They  also  demonstrated  that  the 
solution  provided  a  lower  bound  to  the  load  at  failure. 

Goodman,  Taylor,  and  Brekke  (1968)  succeeded  in  incorporating 
a  zero  thickness  element  with  normal  and  shear  stiffnesses  within 
the  Finite  Element  formulation.  With  this  special  "joint  element" 
they  modeled  failure  in  tension  and  shear,  rotation,  arch  develop- 
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ment  and  collapse  patterns  in  jointed  rock. 

Hoffman  (1970)  compared  the  results  of  model  tests  with  the 
results  of  Finite  Element  analyses  and  found  that  the  large 
deformations  and  geometric  changes  in  the  jointed  mass  were  not 
compatible  with  the  assumptions  inherent  in  the  Finite  Element 
method. 

St.  John  (1972)  analyzed  the  behavior  of  rock  slopes  in  open 
pit  mines  using  Finite  Element  models  incorporating  joint  behavior. 
He  concluded  that  the  technique  provided  acceptable  results 
provided  small  displacement  theory  was  relevant  but  stressed  the 
need  for  field  data  to  verify  the  constitutive  laws  used  in  the 
program. 

Chappell  (1974  a;  1974  b),  and  Burman,  Trollope,  and  Philp 
(1975)  related  the  behavior  of  a  jointed  medium  to  rigid  body 
displacements  of  block  centroids.  The  modified  Finite  Element 
formulation  replaced  the  elastic  blocks  with  rigid  ones  and 
connected  the  block  centroids  with  "joint"  elements  capable  of 
modeling  the  combined  block  and  joint  responses  of  stress  versus 
strain  and  moment  versus  rotation.  Appropriate  moduli  were  obtained 
by  physical  experiments. 

Wang  and  Sun  (1970  a,  b)  and  Wang,  Sun,  and  Ropchan  (1972) 
used  Finite  Element  analyses  to  determine  stresses  in  gravity 
loaded  open  pit  slopes.  These  stresses  were  then  incorporated  in 
a  Limit  Equilibrium  analysis  to  determine  the  safety  factor  of  the 
slope  with  respect  to  sliding  on  a  preselected  failure  plane. 


Manfredini,  Martinetti ,  and  Ribacchi  (1975)  used  Finite 
Element  analyses  of  slopes  to  demonstrate  the  inadequacy  of  Limit 
Equilibrium  methods  in  design.  One  interesting,  though  not 
unexpected,  conclusion  from  their  study  was  that  the  intact 
properties  of  the  rock  mass  played  very  little  part  in  the 
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2 . 5  Jointed  Mass  Behavior  Models 

The  jointed  mass  behavior  models  have  been  arbitrarily 
separated  into  three  groups.  The  first  comprises  true  physical 
models  including  both  those  models  where  similitude  requirements 
are  met  and  those  whose  purpose  is  simply  to  demonstrate  the 
kinematics  of  failure.  The  second  group,  photoelastic  modeling, 
is  a  sub  group  of  the  first  group  but  owing  to  the  special  type 
of  information  it  yields,  is  considered  separately.  The  third 
group  comprises  theories  of  behavior  which  are  primarily  based 
upon  either  empirical  data  and  the  results  of  model  tests  or 
postulated  behavior  mechanisms. 

2.5.1  Physical  models 

Lang  (1964)  used  physical  models  for  assistance  in  understand¬ 
ing  the  behavior  of  underground  power  stations.  The  most 
significant  result  of  this  research  was  aid  in  visualizing 
deformation  behavior  of  jointed  media. 

Krsmanovic  and  Milic  (1964)  undertook  a  comprehensive  series 
of  tests  to  determine  pressure  distribution  in  a  discontinuum 
subjected  to  external  loads.  Their  results  demonstrated  that  the 
pressure  distribution  wai»  most  sensitive  to  the  original  state  of 
stress  of  the  mass. 

Trollope  (1966)  examined  the  behavior  of  a  trapezoidal  opening 
in  a  jointed  rock  mass.  His  work  indicated  two  zones  above  the 
opening:  a  triangular  "suspended  zone"  above  the  opening  and  a 
stable  region  outside  of  the  "suspended  zone". 
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Goldstein  et  al. (1966)  investigated  the  behavior  of  models  of 
jointed  slopes  by  using  a  centrifuge.  The  goal  of  their  research 
was  to  investigate  the  different  failure  conditions  of  slopes  cut 
in  jointed  rock. 

Fumagalli  (1968)  outlined  the  general  principles  of  mechanical 
similitude  including  the  incorporation  of  discontinuity  surfaces 
for  the  proper  physical  scale  modeling  of  problems  in  rock. 

Edwards  (1968)  constructed  a  model  of  an  open  pit  slope  with 
wooden  blocks  as  an  aid  to  the  interpretation  of  deformation 
measurements  obtained  in  the  field.  An  important  conclusion  of 
his  work  was  that  even  though  the  models  were  not  truly  scaled  they 
reproduced  the  measured  phenomena  better  than  an  elastic  analysis. 

Gaziev  and  Erlikman  (1971)  embedded  strain  gauges  in  plaster 
blocks  and  built  models  to  examine  pressure  distributions  in 
discontinuous  masses.  They  concluded  that  the  state  of  stress  is 
characterized  by  two  "streams"  of  stresses  following  the  directions 
of  the  principal  joint  sets. 

Erguvanli  and  Goodman  (1972)  stressed  the  importance  of 
kinematic  models  to  observe  possible  failure  modes,  as  well  as 
scale  models  which  could  more  accurately  predict  true  behavior 
patterns. 

Goodman  (1972)  outlined  the  use  of  the  base  friction  model  to 
observe  the  kinematic  behavior  of  rock  masses  containing 
discontinuities. 

Barton  (1974)  examined  the  deformation  of  discontinuous  models 
consisting  of  approximately  40,000  blocks.  Cut  slopes  were 


excavated  in  the  model  after  consolidation.  The  outcome  of  the 
experiments  was  compared  to  Finite  Element  analyses  and  photcelastic 
studies  reported  in  the  literature  at  that  time.  In  all  cases  the 
"reasonable"  behavior  as  predicted  by  theory  failed  to  materialize. 

2.5.2  Photoelastic  models 

Lang  (1961)  used  photoelastic  models  to  study  the  effects  of 
the  presence  of  joints  in  the  roof  of  an  underground  opening.  He 
also  presented  some  guidelines  for  rock  bolting  based  upon  patterns 
of  stress  transfer  observed  in  bolted  photoelastic  models. 

Maury  (1970)  examined  the  distribution  of  stresses  in 
horizontally  stratified  masses  by  means  of  photoelastic  models.  He 
noted  that  the  observed  behavior  was  fundamentally  different  from 
that  predicted  by  continuum  theory. 

Brcic  and  Nesovic  (1970)  analyzed  detailed  two  dimensional 
models  of  dam  foundations  by  photoelastic  models.  Their  results 
suggested  that  the  presence  of  discontinuities  was  a  most 
significant  parameter  in  the  definition  of  the  foundation  bearing 
capacity. 

Ergun  (1970)  performed  a  photoelastic  analysis  of  a  biaxially 
loaded  plate  with  orthogonal  joints  and  noted  that  the  stress 
distribution  was  affected  by:  voids  in  the  joints,  the  ratio  of 
applied  pressure,  the  joint  inclination,  and  the  stress  history. 

Chappell  (1973)  investigated  the  interactions  of  underground 
openings  in  jointed  media  photoelastical ly.  His  conclusion  was 
that  the  mechanisms  of  slip,  rotation,  and  interlock  controlled 
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the  load  distribution.  Furthermore,  he  noted  that  the  interaction 
between  a  number  of  openings  tended  to  accentuate  these  mechanisms. 

2.5.3  Observational  models 

The  observation  of  the  behavior  of  discontinuous  masses  as 
well  as  the  behavior  of  laboratory  models  has  led  to  several 
theories  of  behavior  which  for  lack  of  a  better  name  are  herein 
termed  observational  models.  These  observational  models  attempt 
to  predict  behavior  in  light  of  stress  disruption/or  redistribution 
across  planes  of  discontinuity  such  as  joints,  or,  in  the  case  of 
soils,  grain  contact.  They  often  utilize  the  information  gained 
from  model  experiments  or  collected  from  real  situations  and 
extract  response  patterns  which  are  postulated  to  hold  for  a  large 
class  of  problems. 

Terzaghi  (1946)  carried  out  tests  in  railroad  tunnels  in 
the  eastern  Alps  by  inserting  wooden  blocks  of  known  strength 
properties  in  timber  sets.  On  the  basis  of  the  results  of  these 
tests,  he  postulated  the  expected  loads  on  tunnel  supports  as  a 
function  of  the  degree  of  jointing  of  the  rock  mass  under 
consideration. 

Trollope  (1957,  1961)  developed  an  arching  theory  of  force 
distribution  within  granular  masses  by  a  statical  equilibrium 
analysis  of  a  mass  consisting  of  systematically  packed,  smooth, 
rigid  spheres.  He  applied  this  theory  to  block  jointed  models  to 
deduce  general  design  principles.  The  same  approach  was  used  by 
Trollope  and  Brown  (1965)  to  develop  general  equations  for  the 


distribution  of  pressure  in  a  discontinuous  mass  beneath  a  strip 
loaded  foundation. 

Hyashi  ( 1 956)  formulated  an  approach  to  determine  the  distribu¬ 
tion  of  stresses  in  a  fissured  foundation  in  terms  of  the  combined 
Pascal  distribution.  The  effects  of  cohesion  and  frictional 
resistance  were  incorporated  by  means  of  an  iterative  application 
of  Bousinesq's  equation.  His  model  recognizes  a  transient  depth 
below  which  slip  no  longer  occurs  along  joint  planes.  In  the 
absence  of  cohesion  or  frictional  resistance  his  model  reduces  to 
that  postulated  by  Froelich  (1933)  who  idealized  the  contact 
stresses  in  stacked  cylinders  as  an  assemblage  of  tiered,  simple 
beams. 

Lane  (1961)  and  Lutton  (1970)  presented  empirical  charts 
relating  slope  height  to  inclination.  Their  data  indicated  trends, 
but  they  recognized  that  adverse  geologic  structure  could 
invalidate  the  use  of  the  charts. 

Abel  (1966)  constructed  a  statistical  model  for  the 
estimation  of  support  leads  in  a  tunnel  from  measured  steel  set 
loads,  geologic  and  construction  factors.  He  noted  that  although 
the  principles  of  analysis  were  general,  every  tunnel  must  be 
considered  as  a  separate  problem. 

Ross-Brown  (1973)  collected  data  concerning  the  stability  of 
cut  slopes  in  open  pit  mines  throughout  North  America.  He 
concluded  that  stability  problems  were  too  complex  to  be  summarized 
by  statistical  relationships  and  that  each  mine  needed  to  be 
considered  as  a  separate  entity  in  light  of  the  experience  obtained 


in  other  mines. 

More  recently,  Wickham,  Tiedemann,  and  Skinner  (1972), 
Bieniawski  (1973),  and  Barton,  Lien,  and  Lunde  (1974)  have  presented 
empirically  derived  rock  mass  classification  schemes  for  predicting 
loads  on  tunnel  supports.  The  classification  schemes  result  from 
the  statistical  manipulation  of  data  collected  during  construction 
in  rock  and  consider  parameters  such  as  joint  spacing,  orientation, 
infilling,  and  the  presence  of  water. 
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2.6  Limit  Equilibrium  Analyses 

The  basic  principles  of  Limit  Equilibrium  applied  to  jointed 
rock  masses  are  basically  not  different  from  the  principles  of  the 
analysis  of  soil  slopes  as  advocated  by  Fellenius  (1936)  or  Bishop 
(1955).  Owing  to  the  degree  of  indeterminacy  in  the  problem, 
assumptions  must  be  made  regarding  the  magnitude  of  some  forces  as 
well  as  their  point  of  application. 

A  large  portion  of  the  literature  on  the  stability  of  rock 
slopes  comprises  work  on  the  analysis  of  the  sliding  behavior  of 
tetrahedral  wedges  of  rock  by  means  of  stereographic  projection 
(e.g.  John,  1968).  Although  two  dimensional  problems  can  be 
handled  by  this  method,  the  amount  of  work  required  in  the 
calculation  as  opposed  to  a  simple  graphical  solution  hardly 
merits  the  effort.  Limit  Equilibrium  of  three  dimensional  wedges 
is  not  considered  in  this  review. 

John  (1962)  presented  a  graphical  analysis  of  the  stability  of 
a  wedge  of  rock  defined  by  joint  planes  and  a  cut  surface.  To 
determine  the  magnitude  of  rock  anchor  forces,  he  utilized 
conditions  of  limiting  equilibrium  by  assuming  that  full  frictional 
resistance  would  be  developed  along  the  plane  of  sliding  - 
effectively  allowing  him  to  specify  the  force  polygon. 

Bray  (1966,  1967  a,  b)  substituted  the  equations  for  principle 
stress  in  the  Mohr-Coulomb-Navier  relation  to  develop  the  ratio  of 
principle  stresses  at  failure  by  sliding  in  a  jointed  mass  as  a 
function  of  the  orientation  of  the  principle  stresses  and  the 
friction  coefficient.  An  interesting  outcome  of  this  analysis 


comes  by  superposing  a  system  of  multiple  fractures;  in  this  model 
the  value  of  the  stress  ratio  approaches  that  of  the  active  pressure 
coefficient  as  used  in  soil  mechanics. 

Jennings  (1970)  noted  that  failure  in  rock  slopes  did  not 
necessarily  follow  a  single  plane.  Rather,  the  failure  surface  that 
developed  was  often  stepped.  Utilizing  Limit  principles,  the 
equations  he  presented  incorporated  sliding  on  a  discontinuity  as 
well  as  failure  through  intact  rock. 

Calder  (1970)  used  Limit  principles  to  analyze  the  stability 
of  slopes  in  jointed  rock.  His  analysis  demonstrated  that  contrary 
to  the  case  of  slope  failure  in  soils,  significant  changes  in  cut 
slope  angle  in  jointed  masses  often  have  no  effect  on  the  degree  of 
stability. 

Hoek  (1970)  presented  design  charts,  based  on  Limit  Equilibrium 
principles,  for  the  rapid  assessment  of  the  stability  of  slopes 
excavated  in  jointed  rock.  The  assumptions  necessary  to  produce 
the  charts  are  conceded  to  be  severe  but  are  common  to  all 
analyses  of  this  type. 

Rosengren  (1971)  presented  the  results  of  a  comprehensive 
analysis  of  the  stability  of  blocks  and  wedges  formed  by  the  joint 
systems.  Whereas  the  factor  of  safety  as  used  by  most  investigators 
relates  total  driving  force  to  total  resisting  force,  Rosengren 's 
definition  of  factor  of  safety  contains  one  term  relating  available 
friction  to  required  friction  and  another  term  relating  required 
cohesion  to  available  cohesion. 
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Pentz  (1971)  investigated  the  situation  where  the  failure 
criterion  was  not  linear;  a  simple  power  law  was  used  to  relate 
normal  stress  to  shear  stress  in  place  of  the  commonly  used  Mohr- 
Couloinb-Navier  relationship. 

Gaziev  and  Rechitski  (1974)  used  Limit  Equilibrium  principles 
to  analyze  a  rock  slope  with  multiple  slip  modes  possible.  Their 
analysis  located  the  layer  with  the  minimum  stability  factor.  The 
overall  stability  of  the  mass  was  then  related  to  the  individual 
layer  stabilities. 

Statistically  based  modifications  of  Limit  Equilibrium  methods 
have  also  been  presented  by  several  authors. 

McMahon  (1971)  introduced  design  procedures  that  determine  the 
probability  that  a  rock  slope  will  be  undercut  by  joints  that  lie 
in  unstable  orientations.  On  the  basis  of  these  assumptions,  and 
utilizing  Limit  Equilibrium  principles,  he  arrived  at  curves 
relating  probability  of  failure  to  slope  angle. 

Serrano  and  Castillo  (1974)  introduced  probability  density 
functions  for  the  strength  of  discontinuities  and  the  matrix  as 
well  as  for  block  size  and  combined  them  with  Limit  Equilibrium 
principles  to  generate  a  stability  curve  for  a  rock  slope  in  terms 
of  probability  of  failure. 
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2 . 7  An  Evaluation  of  the  Techniques  Commonly  used  in 

Jointed  Mass  Modeling 

The  preceding  literature  survey  dealt  with  the  numerous 
methods  commonly  used  to  predict  the  behavior  of  rock  masses 
containing  planes  of  weakness.  It  is  of  interest  to  present  a 
brief  summary  of  this  survey  that  emphasizes  what,  in  particular, 
advantages  each  of  the  methods  offer. 

The  observational  type  methods  are  typically  the  first 
"analytical"  method  associated  with  engineering  analyses.  It  is 
to  the  credit  of  men  like  Terzaghi  that  they  recognized  that  the 
degree  of  jointing  present  in  a  rock  mass  could  be  the  most 
significant  factor  to  be  considered  in  a  design.  However,  most 
investigators  pursuing  this  method  noted  that  although  the  method 
usually  worked  quite  well  for  a  given  problem,  the  information 
gained  was  generally  not  of  use  at  other  sites.  Most  recent 
investigators  have  tried  to  overcome  this  shortcoming  by  statistical 
manipulation  of  a  large  amount  of  data. 

Elastic  solutions,  and  in  particular,  modified  elastic 
solutions  are  recognized  as  having  shortcomings,  but  are  usually 
conceded  to  be  fairly  accurate  in  those  cases  where  the  jointing 
is  homogeneous  throughout  the  rock  mass.  The  modified  solutions 
usually  attempt  to  account  for  the  jointing  by  anisotropic  mass 
behavior.  It  is  interesting  to  note  that  one  of  the  leading 
proponents  of  this  method  of  solution  "...  has  now  abandoned  his 
earlier  view  ...  that  an  'equivalent  orthotropic  medium'  can  be 
constructed  to  fairly  represent  the  deformabil ity  of  regularly 
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jointed  rock  . . . "  (Goodman,  1974).  Goodman  makes  this  statement 
on  the  basis  of  dilatancy  and  stress  dependent  behavior  of  the 
joints  and  suggests  that  the  more  influential  discontinuities 
should  be  treated  as  individual  rock  mass  components. 

The  application  of  soil  mechanics  theories  to  the  analysis  of 
the  behavior  of  jointed  rock  masses  has  been  successful  in  those 
cases  where  the  scale  of  the  jointing  relative  to  the  problem 
was  sufficiently  small.  However,  if  detailed  analysis,  on  the 
scale  of  the  jointing,  is  required,  the  method  lacks  validity. 

The  use  of  Limit  Equilibrium  principles  holds  much  promise 
if  it  is  possible  to  reduce  the  intricacies  of  the  problem  to 
the  point  where  a  "handleable"  number  of  equilibrium  equations 
can  be  written,  and  if  the  joint  behavior  may  be  represented  as 
simply  as  is  done  in  Limit  Equilibrium  methods.  The  main  problem 
with  this  type  of  approach  is  that  the  necessary  assumptions  often 
tend  to  oversimplify  the  problem  -  if  too  many  assumptions  need 
to  be  made  to  reduce  the  indeterminacy,  then  the  model  may  no 
longer  be  representative  of  the  problem  to  be  solved. 

Physical  modeling  seems  to  offer  the  best  solution  to  modeling 
the  behavior  of  jointed  rock  masses,  since  the  behavior  is  exactly 
modeled  if  similitude  requirements  are  met.  However,  it  is 
virtually  impossible  to  set  up  the  identical  physical  models  which 
are  necessary  for  parametric  variation,  and  the  cost  of  a  detailed 
model  can  be  prohibitive. 

The  Distinct  Element  method  offers  a  combination  of  the 
capabilities  required  to  predict  the  behavior  of  jointed  rock 
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masses.  The  joints  are  modeled  as  the  most  significant  components 
of  the  problem.  There  is  no  need  to  oversimplify  the  problem  and 
the  data  structures  can  be  stored  permitting  a  given  geometry  to 
be  analyzed  as  many  times  as  desired. 

It  is  in  the  context  of  a  reproducible  "physical"  model  that 
the  Distinct  Element  method  is  used  in  this  dissertation. 
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2 . 8  The  Distinct  Element  Method 

The  Distinct  Element  method  introduced  by  Cundall  (1971  a,  b) 
is  a  computer  based  analysis  that  simulates  the  behavior  of  a 
system  of  discrete,  semi-rigid  rock  blocks.  Block  interactions 
are  governed  by  realistic  friction  and  stiffness  laws.  Each  block 
may  undergo  unlimited  displacement  and  rotation  while  progressive 
failure  is  modeled.  In  its  present  formulation  the  program  is 
run  in  an  interactive  mode  on  a  dedicated  mini-computer  coupled  to 
a  cathode  ray  tube  (CRT)  graphic  output  device.  The  CRT  is  used 
both  for  the  input  of  geometric  and  material  information  as  well 
as  for  the  output  data  which  consists  of  drawing  the  movements  of 
the  blocks  as  a  function  of  time.  The  description  presented 
follows  Cundall  (1971  b). 

The  program  calculation  cycle  comprises  force-displacement 
relations  for  the  block  contacts  and  laws  of  motion  for  the  block 
centroids.  Very  simple  relationships  are  used  to  relate  normal 
force  to  normal  displacement  and  shear  force  to  shear  displacement. 

The  normal  force-displacement  relationship  owes  its  simplicity 
to  the  assumption  that  the  normal  stiffness  of  a  joint  plays  a  very 
small  role  in  the  failure  process  of  the  rock  mass  and  that  shear 
force  does  not  affect  normal  force.  Thus  normal  force  is  assumed 
proportional  to  the  overlap  between  two  blocks.  Diagramatically , 
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where  constant  of  proportionality  Kn  is  the  joint  normal  stiffness 
and  the  resultant  force  acts  upon  both  blocks.  In  the  more  likely 
case  where  two  faces  together  form  a  joint,  equilibrium  is 
maintained  by  two  point  contacts,  thus: 

61 


II 


6Z 

Cundall  argues  for  the  validity  of  representing  a  joint  by  two 
point  contacts  by  noting  that  owing  to  irregularities  present  on 
a  real  joint,  contact  will  occur  only  at  discrete  points,  quite 
possibly  only  two. 
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The  shear  force-displacement  relationship  cannot  be  described 
by  such  a  simple  formulation  because  the  shear  force  depends  upon 
the  past  history  of  movement  of  the  blocks  as  well  as  the  amount 
of  normal  force.  To  account  for  this,  the  shear  force  must  be 
calculated  incrementally  with  the  incremental  amount  of  shearing 
force  assumed  proportional  to  the  relative  movement  of  a  block 
corner  along  another  block  face.  The  incremental  shear  force  is 
then  added,  noting  the  sense  of  movement,  to  the  shear  force  already 
existing  between  the  two  blocks.  Diagramatical ly : 


AFs  s  Ksas 
Fc  =  Fc0ld  +  AFC 


where  the  proportionality  constant  Ks  is  the  joint  shear  stiffness. 

Although  not  strictly  necessary  from  a  physical  standpoint, 
the  normal  force  is  also  calculated  incrementally  in  the  program 
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so  that  all  forces  are  derived  from  incremental  displacements. 

This  formulation  does,  however,  simplify  the  task  of  incorporating 
nonlinear  phenomena,  such  as  dilatation,  associated  with  the  normal 
stress. 

Two  failure  laws  are  incorporated  in  the  program.  Since  it  is 
probably  unrealistic  to  have  tensional  resistance  across  a  joint, 
a  "no  tension"  criterion  is  adopted  at  each  time  step,  by  simply 
setting  normal  forces  that  become  negative  to  zero.  The  criterion 
governing  shear  failure  is  the  Mohr-Coulomb-Navier  law.  At  every 
time  step,  the  shear  force  at  each  contact  point  is  tested  and 
limited  to  a  maximum  force,  which  is  dependent  upon  the  normal 
force. 

The  force-displacement  relations  are  thus  used  to  calculate 
the  set  of  forces  acting  on  each  block  solely  due  to  the  geometric 
position  of  each  block  relative  to  its  neighbors.  The  forces 
acting  on  each  block  may  be  resolved  into  an  equivalent  force 
vector  and  a  moment  acting  on  the  block  centroid.  If  a  law  of 
motion  is  now  implemented  (in  this  case  Newtons  second  law)  the 
linear  acceleration  vector  can  be  calculated  as  the  quotient  of 
the  resultant  force  and  the  mass  of  the  block.  Similarly,  the 
rotational  acceleration  is  the  quotient  of  the  resultant  moment 
and  the  rotational  moment  of  inertia  of  the  block.  By  choosing  a 
suitable  time  step,  these  accelerations  may  be  numerically 
integrated  twice  to  give  the  displacement  of  the  block.  For 
example,  in  the  x  direction: 


A 
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v  =  velocity 
u  =  displacement 
m  =  mass 

=  Force  on  block  in  x  dir 


with  similar  equations  for  the  y  direction  and  rotation.  The  time 
step  cannot  be  made  arbitrarily  large,  or  rapid  geometric  changes 
would  not  be  modeled  accurately.  However,  a  more  subtle  reason  for 
the  limit  on  the  time  step  is  that  owing  to  numerical  instabilities 
in  the  solution  of  the  equations,  there  is  a  limit  to  the  maximum 
time  step.  This  is  discussed  in  more  detail  by  Cundall  (1971  a) 
along  with  the  damping  requirements  of  the  equations. 

The  complete  calculation  cycle  can  be  summarized  as: 


In  addition  to  the  main  calculation  cycle,  routines  are  needed 
to  keep  track  of  the  coordinates  of  contacts;  the  use  of  arbitrarily 
large  displacements  and  the  attendant  large  number  of  possible 
contact  points  requires  the  implementation  of  a  dynamic  memory 
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allocation  scheme.  This  scheme  is  discussed  in  Appendix  B  along 
with  a  more  complete  listing  of  the  equations  comprising  the  main 
calculation  cycle.  A  complete  discussion  of  the  fundamental 
algorithm  of  the  program  is  given  by  Cundall  (1974). 
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2.9  Applications  of  the  Distinct  Element  Method 

As  a  conclusion  to  this  chapter,  several  examples  illustrating 
the  application  of  the  Distinct  Element  method  to  problems  involving 
the  response  behavior  of  jointed  rock  masses  are  presented.  The 
problems  range  in  complexity  from  modeling  a  rock  slope  as  a  single 
block  bounded  by  a  joint  plane  and  a  tension  crack  at  the  crest,  to 
examining  the  behavior,  as  failure  progresses,  of  a  jointed  mass 
being  mined  by  caving  techniques.  The  examples  chosen  illustrate 
most  of  the  salient  features  and  capabilities  of  the  Distinct 
Element  method;  however,  the  potential  of  the  method  extends  much 
farther.  Particular  examples  of  extended  applications  could 
include  true  blasting  analysis,  coupled  fluid  flow  behavior  and 
incorporation  of  elastic  stresses  and  strains. 

The  problem  of  the  correctness  of  the  solutions  obtained  by 
the  Distinct  Element  method  will  be  addressed  in  the  next  chapter; 
for  the  present  time  the  correctness  of  the  solutions  should  be 
accepted.  Alternatively,  the  examples  can  be  viewed  in  light  of 
kinematics  only  with  calculated  displacement  modes  and  forces 
interpreted  in  light  of  experience  and  intuition. 

Example  1  -  Stabilization  of  a  Failing  Rock  Slope 

The  rock  slope  illustrated  in  Figure  2.1(a)  consists  of  a 

O 

single  block  bounded  by  a  joint  plane  dipping  approximately  25  out 
of  the  face  of  the  slope  and  a  vertical  tension  crack  at  the  crest 
of  the  slope.  The  friction  coefficient  of  the  joint  plane  is  .15, 
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corresponding  to  an  angle  of  8.5  ;  thus  the  block  should  be 
unstable  and  is  seen  to  move  on  the  screen  as  illustrated  in 
Figure  2.1(b).  Mote  that  the  block  centroids  are  identified  by  a 
dot  and  that  an  "F"  at  a  centroid  means  that  the  block  is  fixed  in 
space,  that  is,  not  free  to  move. 

To  investigate  the  affect  of  inclination  of  an  applied 
stabilizing  force,  a  small  block  is  placed  on  the  slope  and  forces 
are  applied  at  various  angles.  As  can  be  seen  in  Figures  2.1(c) 
and  (d),  the  smallest  force  required  to  stabilize  the  slope 
corresponds  to  an  angle  of  inclination  equal  to  the  dip  of  the 
joint.  Also,  the  required  stabilization  force  increases  as  the 
bolt  inclination  becomes  perpendicular  to  the  joint  plane. 

However,  the  length  of  bolt  or  cable  required  for  stabilization  is 
a  minimum  when  this  length  is  normal  to  the  joint.  By  assuming  a 
simple  relationship  governing  bolting  costs,  it  is  possible  to 
determine  the  optimum  inclination  for  installation  of  stabilizing 
forces.  A  simple,  yet  reasonable  estimate  of  relative  cost  is 
obtained  by  assuming  that  cost  increases  linearly  with  length  and 
force  relative  to  some  base  cost  (in  this  case  the  horizontal  bolt 
was  chosen),  this  can  be  expressed  as: 

Cost  .  =  Cost  u  (  ^ i  .  Fi  ) 

l  H  i  p 

'H 

Assigning  an  arbitrary  figure  of  1  to  the  cost  of  the  horizontal 
bolt,  Figure  2.1(e)  which  relates  the  bolt  cost  to  inclination,  can 
be  plotted.  From  this  figure  it  can  be  seen  that  based  upon  the 
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assumed  cost  relationship,  the  optimum  angle  of  inclination  of  the 
stabilizing  force  is  approximately  30°. 

Realistic  cost  data  can  be  used  to  refine  the  cost  relation¬ 
ship  and  much  more  complicated  slope  geometries  can  be  modeled  with 
the  Distinct  Element  method. 

Example  2  -  Horizontally  Stratified  Mine  Roof 

Figure  2.2  illustrates  a  horizontally  stratified  mine  roof; 
there  are  no  joints  exposed  within  the  span  of  the  roof.  The  only 
information  that  can  be  obtained  by  using  the  Distinct  Element 
method  in  a  problem  such  as  this  is  the  weight  distribution  on  the 
pillars  which  in  this  case  could  readily  have  been  obtained  by 
inspection.  The  Distinct  Element  method  in  its  present  formulation 
does  not  incorporate  elastic  behavior  of  the  elements;  all 
deformations  occur  on  joint  surfaces.  For  problems  where  elastic 
deformations  are  important  an  elastic  analysis  such  as  Finite 
Element  analysis  should  be  used.  For  this  particular  problem 
however,  beam  theory  could  have  been  used  to  determine  the  bending 
moments  and  deflections  (see,  for  example,  Obert,  Duvall,  and 
Merrill  1960). 


Figure  2.2  A  Horizontally  Stratified  Rock  Mass 
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Example  3  -  A  Gravity  Retaining  Wall 

Illustrated  in  Figure  2.3(a)  is  a  retaining  structure  which  is 
required  to  prevent  movement  of  the  jointed  mass  to  its  left. 

Three  friction  coefficients  are  involved  in  a  problem  such  as  this: 

the  friction  angle  of  the  joints  within  the  mass;  4^,  the 
friction  angle  for  sliding  on  the  base  of  the  wall;  and,  <j>  ,  the 
friction  angle  for  sliding  of  the  rock  mass  along  the  wall.  By 
selectively  varying  these  parameters  it  is  possible  to  illustrate 
several  aspects  of  the  behavior  of  the  wall  in  response  to  loading. 
Figure  2.3(b)  illustrates  the  behavior  of  the  wall  when  4  =  26°  and 
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^b  =  =  ^5  1  as  the  blocks  begin  to  move  outward,  the  wall  cannot 

slide  along  its  base  and  thus  begins  to  rotate  as  evidenced  by  the 
single  contact  vector  at  the  lower  right  hand  corner  of  the  wall . 
The  lower  left  hand  corner  of  the  retaining  wall  is  actually  lifted 
off  the  plane  of  sliding.  The  situation  is,  however,  stable. 

In  Figure  2.3(c)  another  stable  situation  is  illustrated.  In 
this  case,  <J>  =  <4?^  =  19°  while  4>w  =  45°.  The  "9"  printed  on  a 
surface  indicates  that  that  surface  is  assigned  the  friction 
behavior  specified  for  material  type  9.  This  analysis  indicated 
that  as  the  rock  mass  moved  outward  the  base  of  the  retaining  wall 
moved  until  sufficient  frictional  resistance  to  maintain  stability 
was  generated  along  the  base.  Some  rotation  of  the  retaining  wall 
has  occurred  and  is  indicated  by  the  differing  lengths  of  the 
contact  vectors  along  the  base  of  the  retaining  wall. 

As  a  final  variation  of  this  example,  illustrated  in  Figure 
2.3(d),  an  analysis  with  4  =  4^  =  4  =  19°  is  presented.  This 


case  is  not  stable  -  note  the  settlement  of  the  mass  arid  the  gap 
at  the  lower  left  hand  corner  of  the  wall.  Failure  has  occurred 
because  sufficient  resistance  could  not  be  developed  along  the 
base  of  the  retaining  wall.  Also,  the  reduction  of  the  frictional 
resistance  between  the  mass  and  the  wall  reduced  the  overturning 
moment  on  the  wall  which  in  the  previous  cases  had  acted  to 
increase  the  shearing  resistance  along  the  base  of  the  wall.  This 
is  easily  understood  in  terms  of  a  simple  analogy  -  trying  to  move 
the  retaining  wall  by  a  single  force  acting  through  its  centroid. 


The  two  sketches  represent  the  extremes  in  terms  of  orientation  of 
contact  forces  along  the  wall.  In  the  first  sketch,  representing 
the  case  <j>w  =  0,  the  force  exerted  by  the  mass  on  the  retaining 
wall,  F  ,  has  no  vertical  component  while  in  the  second  sketch, 
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representing  the  case  <J>W  =  4 5  ,  the  force  exerted  by  the  mass  on 
the  retaining  wall,  F  .  has  a  vertical  component.  The  vertical 
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component  of  Fw  acts  to  increase  the  normal  force  on  the  base  of 
the  retaining  wall,  thus  increasing  resistance  to  sliding  movement. 
The  effect  of  increasing  the  coefficient  of  friction  d>  is  thus  to 
stabilize  the  retaining  wall  against  translational  sliding. 

Example  4  -  A  Rock  Slope  Which  Fails  b.y  Toppling 

The  assessment  of  the  stability  of  a  cut  slope  in  light  of 
translational  kinematics  often  makes  use  of  the  fact  that  if  the 
major  joint  set  dips  into  the  slope,  failure  by  sliding  is'not 
possible.  Although  this  statement  is  true,  the  fact  that  a  rock 
mass  meets  this  criterion  does  not  automatically  ensure  the 
stability  of  the  cut  slope  as  this  example  illustrates. 

Presented  in  Figure  2.4  are  several  stages  of  the  progressive 
failure  of  a  cut  slope  where  the  major  joint  set  dips  into  the 
slope  face.  Figure  2.4(a)  represents  the  case  before  running 
the  program  while  Figure  2.4(b)  illustrates  the  situation  just  as 
failure  begins;  as  can  be  seen  from  the  figure,  the  toe  block 
must  move  before  the  mass  can  fail.  Thus  the  toe  block  represents 
a  "keystone"  and  in  the  absence  of  fracturing,  the  behavior  of  the 
entire  mass  depends  upon  the  behavior  of  this  block.  Any  remedial 
action  designed  for  a  cut  such  as  this  must  be  based  upon  knowledge 
of  which  blocks  or  sections  of  the  slope  act  as  keystones.  With 
the  Distinct  Element  method  it  is  a  simple  matter  to  determine 
which  blocks  can  best  be  utilized  to  stabilize  the  mass. 

Figure  2.4(d)  illustrates  another  physically  observed  feature 
which  is  accurately  modeled  by  the  Distinct  Element  method.  After 
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a  significant  amount  of  movement  has  occu  red,  stable  equilibrium 
of  the  mass  is  reached.  (Blocks  which  moved  away  from  the  mass 
were  erased  as  the  program  progressed). 

Example  5  -  Anchoring  a  Large  Force  in  Rock  Mass 

This  example  presents  a  comparison  of  the  failure  loads 
calculated  when  a  large  external  force,  such  as  an  anchorage  force 
for  a  transmission  tower,  is  applied  to  a  jointed  mass  in  two 
different  directions.  The  rock  mass  in  question  and  the  two 
loading  directions  are  illustrated  in  Figures  2.5(a)  and  2.5(c). 

The  force  vectors  which  cause  failure,  drawn  to  a  common  scale,  are 
also  illustrated;  the  deformed  geometries  are  illustrated  in 
Figures  2.5(b)  and  2.5(d). 

If  the  scale  of  the  problem  is  such  that  the  bedding  planes 
are  spaced  at  three  feet,  the  visible  jointing  is  spaced  at  six 
feet,  the  jointing  parallel  to  the  plane  of  projection  is  spaced 
at  five  feet,  and  the  mass  density  is""I60 pcTrTfrerrthf 'failure 
loads  are  approximately  160  kips  for  the  case  where  loading 
parallels  the  jointing,  and  230  kips  for  the  case  where  loading 
crosses  the  jointing. 

The  modes  of  failure  are  also  markedly  different  in  the  two 
cases.  In  the  case  where  the  loading  parallels  the  jointing, 
failure  of  the  mass  occurs  essentially  by  slip  along  the  joints. 
However,  in  the  situation  where  the  loading  crosses  the  jointing, 
failure  encompasses  a  larger  volume  of  the  rock  mass  and  is  more 
of  a  rotational  failure  than  a  slippage  failure. 


Figure  2.5  Anchoring  a  large  force  in  a  rock  mass 


Example  6  -  A  Pressure  Tunnel  Near  a  Free  Surface 

This  example  examines  a  hypothetical  situation  where  a 
pressure  tunnel  is  located  near  a  free  surface.  A  situation  such 
as  this  could  be  encountered,  for  example,  in  a  diversion  tunnel 
for  a  dam. 

The  failure  of  the  rock  mass  in  this  particular  case  depends 
upon  the  penetration  of  water  into  the  joints  at  fairly  high 
Dressures.  Hopefully,  in  a  real  situation,  water  pressure  testing 
would  have  been  performed  to  assess  the  permeability  of  the  mass 
and  appropriate  remedial  action  such  as  grouting  and  lining 
undertaken  to  prevent  water  loss.  Nevertheless,  the  example  is 
instructive  and  is  presented  in  spite  of  its  lack  of  realism. 

Figure  2.6(a)  illustrates  the  tunnel  under  consideration; 
the  diameter  of  the  tunnel  is  20  feet  and  the  internal  pressure, 
which  is  assumed  to  penetrate  all  joints  intersecting  the  tunnel, 
is  100  psi.  The  initial  failure  with  the  friction  angle  equal  to 
22  degrees  on  the  joint  planes  is  illustrated  in  Figure  2.6(b).  I 
this  type  of  problem  the  water  pressure  does  not  decrease  as  the 
joints  open,  for  there  is  a  practically  unlimited  supply  of  water 
to  move  out  into  the  joints  as  they  open. 

Figure  2.6(c)  shows  a  later  stage  of  the  progressive  failure 
while  Figure  2.6(d)  illustrates  the  pressure  distribution  in  the 
joints  as  indicated  by  an  asterisk  on  those  joints  where  water 
pressure  is  applied.  The  water  pressure  units  illustrated  are 
internal  computer  units  and  are  seen  to  follow  a  parabolic  trend, 
decreasing  in  intensity  from  the  tunnel  to  the  free  surfaces.  The 
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chosen  pressure  distribution  has  led  to  an  unexpected  displacement 
field  as  evidenced  by  the  open  joint  one  block  away  from  the  tunnel 
in  the  first  row  of  blocks.  Evidently,  the  effects  of  the  free 
surface  and  the  water  pressure  were  sufficient  to  cause  movement  of 
the  two  righthand  blocks  in  the  first  row  of  strata  but,  owing  to 
the  increased  overburden  load,  the  block  nearest  the  tunnel 
remained  stable. 

Example  7  -  A  Shear  Zone  in  a  Tunnel  Roof 

Example  7  is  concerned  with  a  problem  of  roof  stability  in  a 
tunnel  intersected  by  a  plane  of  weakness  having  a  noticeably  lower 
friction  coefficient  than  the  rest  of  the  mass  and  dipping  at  a 
less  favorable  orientation  than  the  main  joint  set.  In  addition, 
the  plane  directly  above  the  main  failure  plane  was  also  assigned 
a  low  friction  coefficient  to  better  model  a  shear  zone. 

The  tunnel  under  consideration  has  a  width  of  24  feet  and  is 
illustrated  in  Figure  2.7(a);  the  planes  considered  as  the 
boundaries  of  the  shear  zone  are  assigned  friction  type  5  (<p  *  5°) 
as  indicated  in  Figure  2.7(d).  The  mode  of  failure,  which  can  be 
compared  to  squeezing  material  into  the  excavation  by  movement  along 
the  planes  defining  the  shear  zone,  is  illustrated  in  Figure  2.7(b) 
and  2.7(c).  The  disruption  of  the  integrity  of  the  roof  defines  a 
volume  of  rock  which  must  be  restrained  by  the  support  system.  At 
a  unit  weight  of  rock  of  160  pcf,  the  weight  of  this  volume  of  rock 
is  approximately  100  kips  per  foot  of  tunnel  length. 
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Recognizing  that  the  block  exposed  in  the  upper  right  hand 
corner  of  the  tunnel  acts  as  a  keystone  upon  which  the  behavior  of 
the  roof  depends,  the  force  necessary  to  stabilize  this  block  (and 
thus  the  entire  system)  was  determined.  By  placing  a  small  block 
in  contact  with  the  desired  block  and  applying  various  forces  it  is 
possible  to  determine  the  force  that  will  maintain  equilibrium  of 
the  mass.  The  forces  could  equally  have  been  applied  at  the 
centroid  of  one  of  the  failing  blocks,  but  by  utilizing  a  small 
block  acting  along  the  edge  of  one  of  the  fail i r g  blocks  the 
effects  of  rotation  due  to  eccentric  loading  are  better  modeled. 

One  such  force  is  shown  in  Figure  2.7(d).  This  force,  which  has  a 
magnitude  of  approximately  20  kips  per  foot  of  tunnel  length 
demonstrates  that  it  is  possible  to  keep  masses  in  equilibrium 
with  forces  that  are  small  when  compared  to  the  weight  of  the  mass 
which  is  failing. 

Example  8  -  Behavior  of  a  Jointed  Mass  During  Mining  by  Caving 

The  final  example  presented  in  this  section  illustrates  the 
movements  of  blocks  and  the  forces  developed  during  these  move¬ 
ments  as  progressive  failure  occurs  in  a  large,  jointed  mass  being 
mined  by  caving  techniques.  The  block  configurations  as  mining 
progresses  are  illustrated  sequentially  in  Figures  2.8(a)  through 
2.8(j).  The  figures  present  the  situation  beginning  some  time 
after  mining  had  commenced;  in  addition,  as  soon  as  individual 
blocks  had  moved  sufficiently  far  from  the  mass  so  that  they  no 
longer  influenced  the  behavior  of  the  mass,  they  were  erased.  In 
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other  words,  the  problem  of  jamming  or  arching  at  the  draw  point 
was  not  considered. 

After  the  first  two  introductory  illustrations  (Figures  2.8(a) 
and  2.8(b))  alternate  illustrations  show  only  the  contact  forces, 
for  the  block  outlines  would  only  make  the  drawing  more  difficult 
to  interpret. 

The  factors  that  influence  the  behavior  of  the  mass  include 

O 

a  relatively  low  friction  angle  on  the  joint  planes  (<{>  =  17  )  and 
rigid  boundaries.  The  four  independent,  intersecting  joint  sets 
are  not  claimed  to  be  representative  of  conditions  at  a  particular 
mine  site.  Rather,  they  were  selected  solely  to  give  the  mass  more 
freedom  to  move,  as  two  intersecting  joint  sets  were  found  to  have 
a  tendency  to  lock  and  stabilize  as  the  individual  blocks  moved. 

Examination  of  Figures  2.8(a),  2.8(b),  and  2.8(c)  illustrate 
the  expected  movement  of  the  lower  unconfined  blocks.  Figure  2.8(d) 
illustrates  that  two  separate  arches  have  developed,  indicating  that 
the  blocks  in  the  lower  part  of  the  mass  are  failing  as  a  unit  and, 
judging  from  the  magnitude  of  the  forces  in  the  upper  part  of  the 
mass,  providing  enough  resistance  to  keep  the  upper  part  of  the 
mass  stable. 

This  conclusion  is  reinforced  by  Figure  2.8(e)  where  it  can 
be  seen  that  the  lower  blocks  are  separating  significantly  from 
the  mass.  Figure  2.8(f)  shows  the  continued  development  of  two 
separate  arches.  The  thrusts  developed  in  the  lower  arch  are  not 
of  sufficient  magnitude  to  stabilize  the  mass,  as  evidenced  by  the 
progression  of  raveling  up  into  the  mass  as  illustrated  in 
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Figure  2.8(g)  and  the  collapse  of  the  lower  arch  as  shown  in 
Figure  2.8(h).  Figure  2.8(i)  illustrates  the  continued  movement 
of  the  mass  toward  the  draw  point.  The  uppermost  layer  is  still 
maintaining  its  integrity  due  to  the  slight  confining  effect  at 
the  arch  abutments.  The  lower  arch  has  completely  failed  as  can  be 
seen  in  Figure  2.8(j).  Although  not  illustrated,  the  upper  arch 
eventually  collapsed  when  a  sufficient  movement  of  the  lower  mass 
blocks  caused  a  loosening  at  the  arch  abutments. 
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CHAPTER  III 

VERIFICATION  OF  THE  ACCURACY  OF  RESULTS  CALCULATED 
BY  THE  DISTINCT  ELEMENT  METHOD 


3.1  Introduction 

As  the  Distinct  Element  method  is,  in  fact,  an  approximate 
method  to  obtain  the  response  behavior  of  a  block  jointed  system, 
an  attempt  must  be  made  to  verify  that  the  calculations  performed 
in  the  method  yield  results  that  are  acceptable.  What  is  required 
of  a  solution  to  a  problem  involving  the  inclusion  of  joints  in  a 
rock  mass  is  that  it  incorporate  and  assign  most  influence  to 
the  significant  parameters  affecting  the  behavior  of  the  mass.  If 
in  doing  so,  some  small  elastic  strain  is  overlooked,  the  solution 
cannot  be  classified  as  exact  but,  needless  to  say,  if  the 
important  responses  of  the  block  system  are  modeled  correctly,  the 
solution  certainly  must  be  classified  as  acceptable. 

Confidence  in  the  use  of  an  approximate  numerical  technique 
such  as  the  Distinct  Element  method  can  best  be  developed  through 
comparison  to  existing  solutions  to  problems  which  include  the 
significant  parameters  which  the  numerical  technique  models.  A 
high  degree  of  confidence  is  obtained  if  the  numerical  model 
duplicates  the  results  of  proven  analytical  solutions.  Somewhat 
less  confidence  in  the  model  is  developed  if  the  comparisons  are 
made  to  approximate  solutions,  although  the  degree  of  confidence 
in  the  approximate  solutions,  as  evidenced  by  their  level  of 
acceptance  by  practicing  engineers  and  designers,  obviously  must 
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be  considered  in  the  comparisons. 

The  problem  of  verifying  the  accuracy  of  solutions  calculated 
by  the  Distinct  Element  method  is  compounded  by  the  lack  of 
analytical  solutions  that  describe  the  behavior  of  a  jointed  rock 
mass.  Instead,  when  dealing  with  the  behavior  of  a  jointed  mass, 
most  analytical  solutions  invoke  approximations  which  draw  upon 
empirically  observed  behavior  models,  soil  mechanics  theories  and 
classical  elastic  solutions  with  the  elastic  parameters  modified 
to  reflect  joint  behavior.  These  types  of  models  are  severely 
limited  in  their  applicability;  for  example,  the  elastic  analyses 
are  probably  most  valid  for  the  case  of  very  close  jointing  and 
the  case  of  a  very  regular  degree  of  jointing  that  can  be 
characterized  as  an  anisotropy.  More  general  models  for  calculat¬ 
ing  the  behavior  of  a  jointed  mass  typically  attack  the  problem  by 
assuming  simplified  relationships  between  the  parameters  selected 
to  typify  the  behavior.  This  type  of  model  suffers  in  that  the 
full  implications  of  the  roles  these  parameters  play  in  the 
behavior  of  the  mass  are  not  yet  fully  understood. 

What  is  needed  then  to  perform  a  truly  accurate  comparison 
unfortunately  does  not  exist.  Rather,  the  very  nature  of  the 
problem  dictates  that  a  choice  be  made  between  approximate  tech¬ 
niques  of  analysis  which  often  contain  vastly  simplified, 
empirically  adjusted  assumptions  regarding  the  overall  mass 
behavior  which  could  possibly  only  be  valid  for  a  distinctly 
limited  range  of  material  properties. 

One  group  of  approximate  techniques,  which  is  limited  in  its 
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scope  to  geometrically  ideal  problems,  is  acceptable  for  a 
comparison  of  this  type.  Limit  Equilibrium  solutions  are 
concerned  with  the  static  equilibrium  of  bodies  at  the  point  of 
failure.  Under  this  assumption,  the  frictional  forces  are 
assumed  to  be  fully  developed  and  thus  force  diagrams  can  be 
drawn  and  equilibrium  equations  written.  This  method  requires 
the  knowledge  of  the  location  of  the  failure  surface  and  a  minimal 
number  of  interacting  blocks.  Provided  that  the  geometry  of  the 
mass  can  be  represented  simply.  Limit  Equilibirum  principles  are 
routinely  used  to  calculate  the  response  of  a  jointed  mass. 

In  the  sections  that  follow,  five  simple  approximate  models 
for  the  behavior  of  jointed  masses  are  presented  and  the  calculated 
responses  are  compared  to  that  generated  by  the  Distinct  Element 
method.  Included  in  these  models  are  Limit  Equilibrium  analyses  of 
one  block  on  an  inclined  plane  with  sliding  and  rotation  possible; 
two  interacting  blocks,  one  in  an  active  state,  the  other  in  a 
passive  state;  and,  multiple  interacting  blocks  both  with  and 
without  the  possibility  of  rotation.  Also  included  are  comparisons 
to  physical  models  examined  with  a  base  friction  apparatus, 
presented  primarily  for  qualitative  observations  on  the  kinematics 
of  large  displacements,  as  well  as  a  simple  pressure  distribution 
in  a  jointed  mass  where  simplifying  assumptions  regarding  material 
behavior  have  reduced  the  problem  to  an  application  of  the 
principles  of  static  equilibrium. 

Common  to  the  models  chosen  for  comparison  to  the  Distinct 
Element  model  are  simple  geometric  properties  and  minimal 
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assumptions  regarding  material  behavior.  As  a  result  of  this  the 
models  possess  the  additional  feature  that  an  intuitive  insight 
into  the  ultimate  response  behavior  is  often  possible.  If  it  is 
possible  to  demonstrate  that  the  simple  models  give  the  correct 
response,  then  it  is  much  more  meaningful  if  the  Distinct  Element 
model  gives  the  same  response. 


t 
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3 . 2  The  Base  Friction  Method 

The  base  friction  or  base  shear  modeling  technique  is  a 
physical,  scale  modeling  technique  described  by  Goodman  (1972) 
that  developed  from  the  suggestion  that  the  effect  of  gravity  on 
a  jointed  rock  slope  could  be  simulated  by  shear  forces  on  the 
base  of  the  model  as  it  was  pushed  over  a  plane  surface. 
Alternatively,  as  in  demonstrations  attributed  to  Dr.  E.  Hoek 
(Goodman,  1976)  the  base  may  be  moved  while  the  model  is  restrained 
The  advantage  of  a  horizontal  assemblage  of  blocks  lies  in  the 
fact  that  complex,  unstable  models  may  be  constructed  and  failure 
observed  as  gravity  is  suddenly  "switched  on".  Disadvantages 
arise  due  to  the  fact  that  accurate  modeling  of  a  real  situation 
requires  that  a  model  material  having  the  exact  frictional 
properties  of  the  real  material  must  be  found.  In  practice,  exotic 
mixtures  of  flour,  sand,  salt  and  cooking  oil  are  used  to  make  a 
cuttable,  semi-rigid  modeling  material.  A  material  of  this  type 
has  the  advantage  that  discontinuities  may  be  cut  into  it  at 
arbitrary  orientations;  for  the  purposes  of  this  investigation, 
however,  as  rigidity  was  of  prime  importance,  1  cm  cubes  of 
commercially  available  plexiglass  were  used  to  construct  the 
models.  The  inability  to  orient  discontinuities  at  arbitrary 
angles  was  not  considered  a  severe  liability  in  this  investigation 
as  the  end  result  was  simply  to  demonstrate  qualitatively  that  the 
Distinct  Element  method  would  reproduce  the  expected  modes  of 
failure  in  several  models  where  the  failure  modes  were  obvious. 
Figure  3.1  illustrates  the  small  base  friction  apparatus  used  to 
study  the  behavior  of  the  jointed  models. 
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Figure  3.1  Diagramatic  sketch  of  base  friction  apparatus  used 
in  comparison 


Modeling  techniques  such  as  base  shear  are  typically 
kinematic  in  that  they  reproduce  the  geometric  features  of  the 
geologic  structure  and  the  excavation  to  a  sufficient  degree  to 
establish  possible  modes  of  failure.  However,  they  are  not 
exactly  scaled  dynamically.  For  example,  the  base  shear  method 
does  not  give  the  correct  response  when  a  moving  body  acquires 
lateral  momentum  since  in  the  base  friction  model,  real  accelera¬ 
tions  are  proportional  to  the  driving  belt  velocity  (Goodman  1976). 
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The  implication  of  this  is  that  in  the  absence  of  block  to  block 
contact,  the  only  accelerations  permitted  in  the  model  would  be 
in  the  direction  of  the  belt  velocity  as  indicated  in  Figure  3.2. 
The  Distinct  Element  model  of  this  situation  is  included  to 
demonstrate  that  momentum  is  indeed  properly  modeled. 

However,  several  qualitative  observations  of  a  kinematic 
nature  can  be  made:  blocks  which  receive  no  supporting  resistance 
must  move  downward  under  the  effect  of  gravity;  unconfined, 
geometrically  unstable  blocks  must  rotate  and  topple;  and  confined, 
geometrically  unstable  blocks  must  induce  sliding  in  neighboring 
blocks  as  they  rotate  and  topple.  These  three  behavioral  features 
of  jointed  systems  can  readily  be  simulated  on  a  base  shear 
apparatus  by  a  laterally  unsupported  mine  roof,  an  overhanging 
cliff  and  a  cut  slope  in  a  jointed  mass,  respectively.  These 
three  failure  models  were  chosen  because,  due  to  their  simplicity, 
the  kinematics  of  the  failure  are  obvious.  This  makes  them  ideal 
for  comparison  with  the  Distinct  Element  method  for  it  demonstrates 
that  the  Distinct  Element  method  can  calculate  the  proper  failure 
mode  for  several  situations  for  which  the  failure  modes  can  be 
envisioned. 

Figures  3.3,  3.4,  and  3.5  illustrate  a  comparison  of  each  of 
the  three  above  mentioned  failure  modes  by  the  base  shear 
technique  and  the  Distinct  Element  method.  Little,  if  any,  comment 
appears  necessary  other  than  to  point  out  the  similarity  of  the 
developing  failure  in  all  three  cases. 
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Figure  3.3  Comparison  of  base  friction  analysis  and  Distinct 
Element  method  for  case  of  unrestricted,  gravity 
induced  block  displacement. 
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Figure  3.5  Comparison  of  base  friction  analysis  and  Distinct 
Element  method  for  case  of  confined,  geometrically 
unstable  blocks. 


The  simplest  and  most  obvious  quantitative  test  of  the 
validity  of  the  Distinct  Element  method  is  whether  or  not  it 
can  adequately  model  the  behavior  of  a  single  block  on  an  inclined 
surface.  The  laws  of  static  equilibrium  furnish  two  important 
aspects  of  the  behavior  of  such  a  block:  first,  it  will  not  slide 
unless  the  angle  of  friction  is  less  than  the  angle  of  inclination 
of  the  surface  upon  which  it  rests;  and  second,  when  the  direction 
of  the  weight  vector  falls  outside  of  the  base  of  the  block, 
overturning  of  the  block  must  occur.  This  toppling  stability  is 
related  to  the  geometry  of  the  block  as  illustrated  in  Figure  3.6. 
When  the  ratio  of  the  width  of  the  base  to  the  height  of  the  block 
is  less  than  the  tangent  of  the  angle  of  inclination,  overturning 
of  the  block  occurs. 

Thus,  the  limiting  stability  condition  of  a  single  block  on 
an  inclined  plane  is  a  function  of  the  angle  of  friction  (q),  the 
shape  (ratio  h/b)  and  the  inclination  of  the  sliding  plane  (o) . 

The  interrelationship  of  these  parameters  has  been  presented 
graphically  by  Hoek  and  Bray  (1974)  and  is  reproduced  in  Figure  3.6. 
This  diagram  delineates  the  four  behavioral  characteristics  of  a 
single  block  on  an  inclined  plane:  stable,  sliding,  toppling,  and 
a  combination  of  sliding  and  toppling.  Note  that  the  line  C  =  y  is 
not  fixed  on  the  diagram  -  it  is  moved  laterally  to  specify  the 
boundary  for  a  given  <ji  situation. 

The  line  4>  =  i}i  and  the  line  h/b  =  cot  \,'j,  representing  limiting 
conditions  for  any  specific  block  under  consideration,  suggest  an 
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alternate  method  of  plotting  this  data.  For  a  given  base  plane 
inclination  ip,  the  geometric  ratio  (h/b)  and  the  friction  angle  (<j>) 
are  plotted  as  the  ordinate  and  abscissa  respectively.  The  line 
h/b  =  cot  separates  the  plot  into  two  regions  in  which  toppling 
will  or  will  not  occur;  the  line  ip  =  <}>  similarly  divides  the  plot 
with  respect  to  sliding.  The  only  advantage  of  such  a  plot,  an 
example  of  which  can  be  seen  in  Figure  3.7,  is  that  the  four 
regions  are  more  nearly  equal  in  area  than  on  the  Hoek  and  Bray 
plot.  It  suffers  from  the  disadvantage  that  two  lines  must  be 
drawn  for  each  specific  case  w hereas  the  Hoek  and  Bray  diagram 
only  requires  that  one  line  be  redrawn. 

As  a  test  of  the  ability  of  the  Distinct  Element  method  to 
calculate  the  proper  response  of  a  single  block  on  an  inclined 
plane,  paired  values  of  0  and  h/b  were  randomly  generated  for 
several  different  values  of  the  base  plan  inclination  (ip)  and  the 
observed  behavior  of  the  block  plotted  on  the  described  diagram. 

The  results  for  two  values  of  are  presented  in  Figure  3.7.  In 
addition,  several  limit  values  were  plotted  whenever  possible. 

O 

For  example,  in  the  case  ip  =  26.6  the  value  of  <p  at  which  sliding 

.  O 

just  began  was  also  noted.  Also  in  the  case  ip  =  26.6  ,  as  the 
limiting  condition  for  toppling  was  h/b  =  2.0,  limit  conditions 
at  which  toppling  just  began  were  investigated. 

The  results  presented  in  Figure  3.7  show  that  the  Distinct 
Element  method  is  capable  of  accurately  predicting  the  behavior 
of  a  single  block  on  an  inclined  surface  with  respect  to  sliding 
or  toppling  failures.  However,  close  examination  of  the  left  side. 
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uppermost  quadrant,  indicates  that  most  failures  in  this  region 
were  of  a  sliding  nature  rather  than  a  combination  of  sliding  and 
toppling.  The  reason  for  this  is  easily  understood  in  light  of 
the  true  meaning  of  the  diagram. 

The  behavior  of  a  sliding  block  is  indeterminate  except  at 
conditions  of  limiting  equilibrium;  that  is,  the  theory  that  has 
been  used  to  predict  the  behavior  of  a  block  is  only  valid  along 
the  line  h/b  =  cot  ip  and  along  the  line  <f>  =  ip.  In  three  of  the 
quadrants,  the  fact  that  either  one  or  both  of  the  failure  criteria 
are  not  met  still  allows  the  determination  of  the  behavior. 
Consider,  as  an  example,  the  right  side,  uppermost  quadrant:  if 
a  block  cannot  slide,  rotational  behavior  can  be  deduced  from 
moment  equilibrium. 

In  the  lefthand,  uppermost  quadrant  however,  neither  of  these 
stability  criteria  is  met  and  the  problem  is  highly  statically 
indeterminate.  Intuitively,  it  must  be  true  that  a  block  sliding 
on  a  frictionless  surface  cannot  topple  due  to  the  inability  of 
the  system  to  develop  an  overturning  couple.  On  the  other  hand, 
a  block  sliding  on  a  plane  inclined  at  an  angle  slightly  greater 
than  the  friction  angle  experiences  an  overturning  couple  due  to 
the  frictional  resistance  acting  on  the  sliding  surface.  If, 
additionally,  the  block  geometry  is  conducive  to  toppling,  then 
intuitively,  the  fact  that  the  block  is  sliding  should  introduce 
an  additional  toppling  moment.  An  analysis  as  simple  as  that 
illustrated  in  Figure  3.6  cannot  predict  the  dynamic  behavior  just 
described  as  it  is  only  concerned  with  limiting  cases. 
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Examination  of  the  plots  in  Figure  3.7  indicates  that 
combined  toppling  and  sliding  was  infrequently  observed  and  only 
occurred  near  the  limiting  conditions.  The  line  that  delineates 
that  area  of  the  graph  corresponding  to  simultaneous  sliding  and 
toppling  behavior  is  not  deducible  from  a  simple  Limit  Equilibrium 
analysis.  The  fact  that  this  coupled  behavior  is  not  determinable 
does  not  detract  from  the  comparison  in  the  least  for  the  true  test 
of  the  Distinct  Element  method  lies  in  its  ability  to  produce 
accurate  results  along  the  lines  =  <f>  and  h/b  =  cot  which, 
as  Figure  3.7  indicates,  it  has  done. 
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3.4  Two  Block  Limiting  Equilibrium  Model 

Goodman  (1976)  presents  a  method  by  which  a  Limit  Equilibrium 
analysis  of  two  interacting  blocks  can  be  performed  with  the  aid  of 
a  stereonet.  Figure  3.8  illustrates  the  general  nature  of  the 
problem;  a  rock  slide  consists  of  two  free  blocks,  one  of  which 
is  in  an  active  or  loading  state,  the  other  is  in  a  passive  or 
resisting  state.  Sliding  of  the  passive  wedge  is  initiated  by 
load  transfer  from  the  active  wedge  which,  by  definition  cannot  be 
sustained  by  friction  alone  along  its  base  planes;  moment 
equilibrium  is  not  considered. 

The  procedure  consists  of  three  steps: 

1.  analyze  active  block  with  plane  3  as  e  free  face:  find 
Fp  required 

2.  analyze  passive  block  with  plane  3  as  a  free  face,  and 
with  load  -  Fp 

3.  system  is  safe  if  resultant  or  passive  block  falls 
within  the  friction  cone  to  the  normal  to  plane  2 

Note  that  if  the  angle  that  the  resultant  on  plane  2  makes  with 
the  normal  to  plane  2  is  taken  as  the  friction  angle  on  plane  2, 
then  limiting  equilibrium  conditions  exist  throughout  the  mass. 

Several  different  geometries  were  analyzed  by  this  method  for 
comparison  with  the  Distinct  Element  method.  Care  was  taken  to 
ensure  that  the  geometries  chosen  for  analysis  would  fail  with  a 
minimal  amount  of  rotation  and  with  full  frictional  resistance 
developing  on  all  planes  in  accordance  with  the  basic  theory.  The 
results  of  several  of  the  test  cases  are  presented  in  Table  3.1, 
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some  of  the  geometries  and  the  associated  stereographic  projections 
are  presented  if  Figure  3.8. 

The  difference  in  the  friction  coefficient  for  stability  on 
Plane  2  as  calculated  by  two  block  Limit  Equilibrium  as  compared 
to  that  calculated  by  the  Distinct  Element  method  was  found 
typically  to  be  on  the  order  of  one  percent. 


Limit 

Equil ibrium 
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Element 

Relative  Difference 

Case 

4> 
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23.0° 

0.425 

23.3° 

0.430 

1.2* 

2 

25.5° 

0.477 

25.7° 

0.482 

1.0% 

3 

30.6° 

0.591 

30.8° 

0.597 

1.0% 

4 

33.0° 

0.649 

O 

33.1 

0.652 

0.5% 

5 

O 

37.6 

0.770 

O 

37.5 

0.767 

-0.4% 

Table  3.1  Comparison  of  the  coefficient  of  friction  required  for 
stability  as  calculated  by  Limit  Equilibrium  and  by  the 
Distinct  Element  method. 

Other  geometries,  in  which  rotation  played  a  major  part  in  the 
failure,  were  analyzed  and  compared  by  the  two  methods.  A  typical 
geometry  investigated  is  illustrated  in  Figure  3.10.  The  friction 
coefficient  calculated  by  two  block  Limit  Equilibrium  for  this 
geometry  was  found  to  be  0.554;  the  friction  coefficient 
calculated  by  the  Distinct  Element  method  was  found  to  be  0.490. 

The  resulting  difference  in  the  friction  coefficient  was  thus 
eleven  percent.  If,  however,  a  Limit  Equilibrium  analysis 
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Figure  3.8  Parameters  for  two  dimensional,  two  block  Limit 
Equil ibrium  analysis  (from  Goodman,  1976) 
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incorporating  rotation  is  performed,  the  friction  coefficient 
for  stability  of  the  passive  block  is  found  to  be  0.477  with  a 
resulting  difference  in  the  friction  coefficient  of  2.1%.  The 
geometry,  stereographic  solution  and  idealized  force  distribution 
are  shown  in  Figure  3.10. 
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3.5  Embankment  Stability  Utilizing  Equilibrium  of  Slices 

An  interesting  test  of  the  ability  of  the  Distinct  Element 
method  to  calculate  a  comparable  solution  arises  in  a  comparison 
to  the  method  of  slices  approach  commonly  used  to  assess  the 
stability  of  a  soil  slope.  Although  the  intent  of  the  method  of 
slices  approach  is  to  model  a  soil  slope  as  failing  plastically 
at  all  points  simultaneously,  equilibrium  is  calculated  for  a 
number  of  vertical  slices  whose  behavior  can  best  be  described  as 
that  of  a  rigid  block.  There  are  a  number  of  approaches  to  the 
solution  of  this  problem,  but  they  all  have  in  common  the  fact  that 
an  idealization  is  made  in  the  true  force  distribution  on  a  slice 
to  make  the  solution  statically  determinate.  Examples  of 
idealizations  which  can  be  solved  by  hand  calculations  are  the 
Fellenius  and  simplified  Bishop  techniques  (Lambe  and  Whitman,  1969) 
which  assume  zero  force  resultant  in  the  direction  normal  to  the 
failure  arc  and  zero  force  resultant  in  the  vertical  direction, 
respectively.  More  complex  lateral  force  distribution  schemes 
exist,  and  are  typified  by  the  method  of  Morganstern  and  Price 
(1965),  which  assumes  the  lateral  force  distribution  parallels  an 
originally  unknown  but  determinable  function,  and  the  method  of 
Spencer  (1967,  1973),  which  assumes  that  the  lateral  forces  are 
inclined  at  a  constant  and  determinable  yet  originally  unknown 
angle.  The  solution  of  these  more  complex  schemes  is  typically 
highly  iterative  and  best  handled  by  a  computer. 

To  keep  a  proper  perspective  it  must  be  noted  that  Fellenius 
chose  to  ignore  the  side  forces  in  his  method  since  the  error 
introduced  was  on  the  order  of  five  percent  and  that  Beichmann  in 
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1937  used  13  different  and  reasonable  assumptions  about  the  side 
forces  to  demonstrate  that  the  maximum  difference  among  the  methods 
was  only  four  percent  (Golder,  1972).  In  addition,  Spencer  (1967, 
1973)  was  able  to  demonstrate  the  insensitivity  of  the  moment 
equation  to  the  slope  of  the  interslice  forces.  The  inclusion  of 
a  constant  side  force  inclination  led  to  a  significant  reduction 
in  required  computational  time  as  there  was  no  longer  any  need 
to  calculate  the  thrust  position  function  as  in  the  method  of 
Morganstern  and  Price. 

For  purposes  of  comparison  to  the  Distinct  Element  method, 
four  commonly  encountered  method-of-sl ices  analysis  were  used. 

The  friction  circle  technique,  Taylor  (1937),  although  not  a  slice 
type  analysis,  was  also  used.  With  the  normal  stress  concentrated 
at  a  single  point,  this  equilibrium  solution  establishes  a  lower 
bound  safety  factor  for  all  method-of-sl ices  solutions  which 
satisfy  statics.  The  Fellenius  and  simplified  Bishop  methods 
(Lambe  and  Whitman,  1969)  were  used  because  of  their  simplicity 
and  tendency  to  bracket  the  other  methods  (Whitman  and  Moore,  1963). 
Wright's  modification  of  Spencer's  method  (Major,  et  al.,  1976)  was 
chosen  as  representative  of  the  methods  that  include  lateral 
forces,  primarily  due  to  its  superiority  in  computational  speed. 

The  results  of  the  comparisons  for  two  slope  configurations 
are  presented  in  Figure  3.11;  the  significant  difference  between 
the  cases  is  that  case  B  is  more  nearly  planar  owing  to  the  larger 
radius  of  the  failure  surface.  Inspection  of  the  figure 
illustrates  several  interesting  points  as  outlined  in  the  following 
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paragraph. 

Firstly,  the  variation  in  the  friction  coefficient  required 
for  Limit  Equilibrium  conditions  is  a  function  of  the  number  of 
slices;  the  fact  that  Spencer's  method,  which  utilizes  lateral 
forces,  is  less  sensitive  to  this  parameter  probably  indicates 
the  reason  for  this.  As  the  blocks  get  thinner,  they  become 
rotationally  unstable  and  lateral  forces  are  required  to  maintain 
equilibrium.  On  the  other  hand  as  the  number  of  slices  becomes 
smaller,  the  system  begins  to  act  as  an  active/passive  block 
system  and  once  again,  lateral  forces  are  required  for  equilibrium 
to  be  reached.  In  practice,  it  is  recognized  that  these  problems 
are  avoided  if  the  number  of  slices  is  in  the  range  of  from  ten  to 
twenty.  Within  this  range  the  friction  coefficient  as  calculated 
by  the  Distinct  Element  method  is  within  two  percent  of  the  method 
incorporating  side  forces  (Spencer-Wright)  and  typically  within 
five  to  seven  percent  of  that  given  by  either  Fellenius  or  Bishop. 
Secondly,  the  friction  coefficient  calculated  by  the  Distinct 
Element  method  diverges  from  that  calculated  by  the  other  methods 
for  a  small  number  of  slices.  This  is  probably  due  to  the  fact 
that  the  Distinct  Element  method  approximates  the  circular  failure 
arc  by  a  series  of  straight  line  segments  and  the  possibility  that 
any  given  segment  could  have  an  unwarranted  influence  on  the 
sliding  behavior.  A  given  line  segment  could  lower  the  inclination 
of  the  failure  surface  at  any  point  along  the  slope  with  a 
corresponding  decrease  in  the  resultant  friction  coefficient 
required  for  stability.  In  contrast  to  this  is  the  case  where  the 
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failure  arc  is  approximated  by  a  larger  number  of  slices;  in  this 
case  the  average  slope  of  the  failure  arc  is  correctly  represented. 
These  two  cases  are  illustrated  in  Figure  3.12. 


Case  A 


Case  B 


Figure  3.12  Possible  mechanism  (exagerated  view)  for  divergence 
of  Distinct  Element  method  from  slice  methods  as 
slice  thickness  increases.  Note  that  in  case  A, 
sliding  can  occur  on  a  line  segment  which  has  a 
higher  inclination  than  the  average  for  that  section 
of  the  arc  while  this  does  not  occur  in  case  B. 
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3 . 6  Multi -Block  Limiting  Equilibrium  with  Toppling 

Goodman  and  Bray  (1976)  demonstrated  that  block  toppling  can 
easily  be  analyzed  by  Limit  Equilibrium  methods  for  the  special 
case  of  blocks  resting  on  a  positively  stepped  base  as  shown  in 
Figure  3.13(a).  Sliding  and  toppling  modes  of  failure  are 
analyzed  for  each  block  according  to  the  failing  configurations 
illustrated  in  Figure  3.13(b).  The  indeterminacy  in  the  equilibrium 
equation  for  each  block  is  resolved  by  assuming  that  full  frictional 
resistance  develops  at  each  contact  point.  The  other  major 
assumption  in  the  method  is  the  position  of  the  points  of  contact. 

Beginning  with  the  uppermost  block,  the  force  to  prevent 
toppling  and  the  force  to  prevent  sliding  are  calculated.  The 
larger  of  these  two  numbers  dictates  whether  toppling  or  sliding 
will  occur;  however,  if  both  forces  are  negative,  the  block  is 
stable.  For  the  analysis  of  the  next  block  down  the  slope,  the 
larger  of  the  two  forces  (or  zero  if  the  block  is  stable)  is  applied 
to  the  downslope  block  and  the  stability  of  that  block  determined. 
The  method  continues  down  the  slope  until  the  toe  block  is  reached. 
The  force  required  to  maintain  equilibrium  of  the  toe  block  is  the 
cable  force  required  to  stabilize  the  entire  slope  since  all 
excess  driving  forces  have  been  transferred  to  the  toe  block  by  the 
calculation  method.  The  method  is  general  enough  to  handle  any 
location  and  orientation  of  the  cable  force. 

Two  of  the  geometries  chosen  for  analysis  are  illustrated  in 
Figure  3.14;  although  similar  in  appearance,  they  differ  in  that 
the  toe  block  will  fail  by  sliding  in  one  case  and  by  toppling  in 


the  other  case. 
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One  additional  point  must  be  considered  when  the  mode  of 
failure  is  dominated  by  toppling.  Whereas  the  stability  of  a 
system  of  sliding  blocks  may  be  analyzed  with  the  Distinct 
Element  method  by  beginning  with  a  condition  that  is  stable  with 
respect  to  frictional  sliding  and  reducing  the  friction  coefficient 
until  failure  occurs,  the  situation  that  exists  when  toppling 
modes  of  failure  are  present  is  more  complex.  On  the  one  hand, 
frictional  resistance  on  the  sides  of  the  block  and  at  the 
corner  about  which  rotation  is  occurring  cannot  be  fully  developed 
unless  rotation  induced  lateral  movement  has  been  allowed  to  occur 
between  blocks.  But  on  the  other  hand,  once  some  rotation  has 
occurred,  the  geometric  configuration  of  the  blocks  is  such  that 
a  higher  force  is  required  to  maintain  stability  with  respect  to 
toppl ing. 

In  a  comparison  of  the  Distinct  Element  method  and  the 
Goodman  and  Bray  Limit  Equilibrium  method,  this  fact  must  be  taken 
into  consideration.  Since  the  significant  coordinates  are  always 
available  during  the  running  of  the  Distinct  Element  program,  the 
amount  of  rotation  of  an  individual  block  can  always  be  calculated 
at  any  time  during  the  running  of  the  program.  In  addition,  a 
sensitivity  analysis  relating  cable  force  to  base  plane  inclination 
was  performed  using  the  Goodman  and  Bray  Limit  Equilibrium  method. 

The  variation  of  the  step  inclination  illustrated  in  the  figure 
does  not  represent  an  actual  change  in  the  geometry  of  the  model  but 
reflects  the  actual  displacement  of  the  blocks  due  to  rotational 
movements  in  the  Distinct  Element  model.  The  value  of  the  cable 
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force  determined  by  the  Distinct  Element  method  for  several  values 
of  block  rotation  is  illustrated.  The  corresponding  values  as 
determined  by  Goodman  and  Sray's  method  are  also  plotted  for 
equivalent  rotations.  By  comparing  the  data  in  this  manner,  there 
is  assurance  that  the  difference  in  calculated  values  is  not  due  to 
a  failure  to  compare  equivalent  models. 

The  results  of  the  two  comparisons  are  presented  in  Figure 
3.14;  part  A  illustrates  the  case  of  the  toe  block  toppling  and 
part  B  illustrates  the  case  of  the  toe  block  sliding.  Inspection 
of  Figure  3.14  shows  that  the  response  of  the  Distinct  Element 
model  is  similar  to  that  of  the  Goodman  and  Bray  Limit  Equilibrium 
model;  the  cable  force  calculated  is  also  similar  for  both  models. 

The  relative  difference  in  the  calculated  cable  forces  is 
approximately  ten  percent  for  the  case  of  toe  block  sliding  and 
approximately  twenty  percent  for  the  case  involving  toe  block 
rotation.  Examination  of  Figure  3.15  illustrates  several 
discrepancies  between  the  contact  force  distribution  assumed  by 
Goodman  and  Bray  and  that  calculated  by  the  Distinct  Element 
model.  These  discrepancies  all  have  a  direct  bearing  on  the 
magnitude  of  the  required  cable  force  and  help  to  explain  the 
difference  in  the  value  of  the  cable  force  as  calculated  by  the 
two  methods. 

The  contact  forces  indicated  by  the  number  1  in  the  figure 
indicate  "elastic"  compression  of  the  block  system  due  to  the 
applied  bolt  force  and  result  in  an  increased  value  of  the  bolt 
force  required  for  stability.  The  contact  force  indicated  by  the 
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Figure  3.14  Comparison  of  Distinct  Element  calculated  response  of 
multi-block  Limit  Equilibrium  and  response  as 
calculated  by  the  method  of  Goodman  and  Bray  (1976). 
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number  2  also  reflects  the  tendency  of  the  cable  force  to  compact 
the  system;  as  rotation  begins,  shearing  resistance  develops.  This 
force  however,  acts  to  stabilize  the  block  and  thus,  indirectly, 
reduce  the  required  value  of  the  cable  force.  The  contact 
forces  indicated  by  the  number  3  directly  contradict  the  basic 
assumption  of  Goodman  and  Bray  -  the  development  of  full 
frictional  resistance  at  all  sliding  contacts.  Forces  of  this  type 
acting  at  less  than  full  frictional  development  increase  the 
rotational  moment  on  a  block  and  thus  increase  the  required 
value  of  the  cable  force. 

In  spite  of  these  discrepancies,  agreement  of  the  models  is 
still  quite  good  indicating  that  the  effect  of  the  additional 
contact  forces  and  the  failure  to  mobilize  full  frictional 
resistance  at  all  sliding  contacts  is  slight.  Additionally, 
rotational  failure  is  very  unstable  and  dynamic  as  opposed  to 
simple  frictional  sliding  which  is  essentially  static.  In  light 
of  this  it  is  felt  that  the  agreement  between  the  Goodman  and  Bray 
model  and  the  Distinct  Element  model  is  quite  good. 
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3.7  Pressure  Distribution  in  a  Jointed  Foundation 

Several  authors,  notably  Krsmanovic  and  Milic  (1964), 

Trollope  and  Brown  (1965),  and  Hayashi  (1966)  have  investigated 
the  distribution  of  pressure  in  a  fissured  or  jointed  mass  loaded 
by  a  strip  footing.  Krsmanovic  and  Milic  used  physical,  scale 
models  incorporating  pressure  measuring  transducers  to  examine 
behavior  beneath  the  foundation,  while  Trollope  and  Brown  and 
Hayashi  deduced  geometrically  progressing  load  transfer  factors 
that  were  used  to  predict  the  pressure  distribution  within  the 
jointed  mass.  Of  the  three  models,  Hayashi 's  was  used  in  a 
comparison  with  the  Distinct  Element  method  because  the  tests 
Krsmanovic  and  Milic  performed  were  limited  in  scope  and  involved 
rupture  of  the  blocks  while  Trollope  and  Brown's  model  relied 
upon  the  development  of  arching  in  the  load  transfer  and  was 
judged  to  be  more  applicable  to  the  analysis  of  the  behavior  of 
a  jointed  mass  on  a  settling  foundation  than  to  a  strip  loaded 
foundation  (Trollope,  1968).  Hayashi  presents  three  approximations, 
each  successively  more  complex  in  computational  effort,  to  the 
distribution  of  pressures  in  a  jointed,  strip  loaded  foundation. 

The  first  approximation,  which  actually  appears  earlier  in 
Froehlich  (1933),  approximates  the  jointed  mass  as  a  tiered 
assemblage  of  point  loaded  simple  beams;  the  resultant  pressure 
distribution  for  the  case  of  no  cohesion  or  frictional  resistance 
reduces  to  the  combined  Pascal  distribution  as  illustrated  in 
Figure  3.16.  The  second  approximation  determines  the  elastic- 
plastic  boundary  below  which  slip  no  longer  occurs  by  means  of  the 
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Note: 

Vertical  load  acting  on  block  is  determined  by  combined 
Pascal  distribution  factor  (indicated  within  block) 
miltiplied  by  one-half  of  total  load  acting  on  strip 
(0. 5Tq) 


Figure  3.16  Hayashi's  first  approximation  to  the  vertical, 

normal  stress  distribution  in  a  fissured  foundation 
combined  Pascal  distribution. 
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Boussinesq  equations  and  the  third  approximation  attempts  to 
correct  for  the  conversion  of  strain  energy  to  heat  as  slipping 
occurs.  As  the  second  and  third  approximations  introduce 
additional  simplifying  assumptions  concerning  the  material 
behavior,  the  first  approximation  was  chosen  for  the  comparison 
with  the  Distinct  Element  method. 

One  of  the  resulting  comparison  plots  is  illustrated  in 
Figure  3.17.  Even  plotted  to  an  exagerated  scale,  the  similarity 
is  obvious.  The  maximum  discrepancy  in  the  two  methods,  relative 
to  the  total  load,  is  seen  to  be  only  four  percent.  The 
dissimilarity  in  the  two  methods  arises  in  Hayashi's  failure  to 
include  rotational  terms  in  his  analysis.  Examining  the  first 
row  of  blocks  beneath  the  strip  load  shown  in  Figure  3.16  suggests 
that  the  central  block,  owing  to  a  larger  load,  will  undergo  a 
slightly  larger  deflection  than  will  the  blocks  on  either  side. 

This  will  result  in  an  inward  rotation  of  the  two  side  blocks  and 
a  corresponding  increase  of  load  in  the  region  beneath  the  central 
blocks.  Following  this  line  of  reasoning  it  is  easy  to  see  that 
had  Hayashi  considered  rotations  in  his  model,  the  resulting 
pressure  distribution  would  have  been,  from  a  qualitative  viewpoint, 

k 

slightly  higher  in  the  central  region  and  lower  on  the  sides 
bringing  it  more  in  line  with  the  pressure  distribution  calculated 
by  the  Distinct  Element  method. 
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3.8  Summary 

It  seems  appropriate  to  conclude  with  a  brief  summary  of  the 
comparisons  just  presented,  for  the  credibility  of  the  remainder 
of  this  dissertation  depends  in  part  upon  the  acceptance  of  the 
validity  of  the  Distinct  Element  method  on  the  basis  of  the  simple 
comparisons  presented.  Using  a  base  shear  apparatus,  it  was 
demonstrated  qualitatively  that  the  Distinct  Element  method 
calculated  kinematically  correct  responses  for  several  classes  of 
complex  problems  where  intuitive  projections  of  the  resultant 
mass  deformational  response  were  possible.  For  those  Limit 
Equilibrium  analyses  of  block  models  which  represented  essentially 
static  situations,  agreement  was  typically  within  one  or  two 
percent;  even  for  the  more  dynamic  situation  involving  multi - 
block  rotations,  agreement  was  on  the  order  of  ten  percent. 
Finally,  for  that  situation  where  it  was  possible  to  duplicate 
all  of  the  assumptions  regarding  mass  behavior,  the  Distinct 
Element  method  was  observed  to  calculate  a  pressure  distribution 
beneath  a  strip  loaded  foundation  that  was  essentially  similar  to 
that  calculated  by  Hayashi's  (1966)  theory. 

Confidence  in  the  method  depends  upon  extending  this 
credibility  in  the  Distinct  Element  obtained  solutions  to  problems 
where  analytical  solutions  are  not  possible  and  where  intuitive 
observations  pertain  to  the  mass  deformational  response  are  often 
not  practical  owing  to  the  complex  nature  of  the  jointing. 

There  are  no  readily  apparent  reasons  why  extending  the 
Distinct  Element  method  to  models  which  are  more  complicated 
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geometrically  should  result  in  answers  that  are  any  less  acceptable 
than  those  generated  for  the  preceeding  comparisons.  The  Distinct 
Element  formulation  contains  no  underlying  requirements  to  dictate 
where  failure  surfaces  should  develop  nor  does  it  require  that 
the  failure  mode  must  somehow  be  reducible  to  idealized  mechanisms 
of  arching,  toppling,  or  sliding.  No  mass  elastic  response 
equations  with  empirically  modified  parameters  are  incorporated  in 
the  model;  no  "joint  elements"  need  be  formulated.  In  fact,  owing 
to  the  explicit  nature  of  the  formulation  there  is  not  even  a  need 
to  form  a  stiffness  matrix  relating  block  deformations  to  inter¬ 
block  loads. 

The  Distinct  Element  formulation  is  oriented  toward  the 
behavior  of  each  block  as  an  individual  mass.  The  kinematic 
behavior  of  each  block  is  independently  calculated  using  Newton's 
law  of  motion;  each  block  senses  the  blocks  surrounding  it  only  as 
boundary  conditions.  If  the  movement  of  a  block  leads  to  penetra¬ 
tion  or  relative  movement  along  the  surface  of  another  block  then 
the  normal  and  shear  stiffness  will  lead  to  interblock  contact 
forces  by  a  simple  application  of  Hooke's  law  with  an  upper 
limit  to  the  forces  set  by  the  Mohr-Coulomb  relation.  These 
forces  are  simply  treated  as  boundary  conditions  for  the  first 
block.  When  a  contact  is  broken  by  a  relative  displacement  between 
the  two  blocks  involved,  there  is  no  longer  a  need  to  consider  the 
effect  that  these  blocks  have  upon  each  other. 

In  light  of  this  single  block  orientation  of  the  Distinct 
Element  formulation  there  is  no  readily  apparent  reason  why  the 
only  difference  between  a  problem  involving  only  a  few  blocks  and 
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one  involving  tens  or  hundreds  of  blocks  should  be  anything  more 
than  the  extended  time  required  to  perform  the  calculations. 

It  should  he  noted,  however,  that  the  time  step  used  in  the 
calculation  cycle  is  sensitive  to  the  number  of  contact  points 
a  single  block  experiences  at  a  given  time.  An  increasing  number 
of  contact  points  can  lead  to  numerical  instabilities;  this 
simply  necessitates  a  reduction  in  the  time  step  and  is  not  an 
indication  that  the  Distinct  Element  formulation  is  incapable  of 
solving  problems  where  single  blocks  simultaneously  experience 
multiple  contact  points.  In  the  present  configuration,  the 
equations  are  stable  up  to  a  maximum  of  eight  points  per  block. 

Additional  verification  comparisons  of  Distinct  Element 
calculated  responses  are  presented  in  the  remaining  chapters 
whenever  it  is  possible  to  express  quantitatively  the  behavior 
of  the  block  jointed  mass  under  consideration.  The  high  degree 
of  correlation  exhibited  by  the  comparisons  presented  in  this 
chapter  is  also  found  to  be  true  for  the  comparisons  presented  in 
the  later  chapters. 


CHAPTER  IV 
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THE  STABILITY  OF  UNDERGROUND  EXCAVATIONS  IN  JOINTED  ROCK 

4.1  Introduction 

The  first  step  in  a  rational  support  design  method  must 
logically  be  to  predict  whether  or  not  a  need  for  support  actually 
exists.  Rather  than  categorically  stating  that  an  excavation  will 
or  will  not  be  stable  if  unsupported,  it  is  more  realistic  to 
analyze  a  given  situation  by  varying  the  values  of  the  input 
parameters  to  determine  those  parameters  to  which  the  given 
excavation  will  be  most  sensitive.  Using  realistic  values  of  the 
design  parameters  it  can  be  determined  if  the  excavation  can  be 
expected  to  stand  unsupported  or  if  support  will  be  required.  This 
type  of  investigation  is  typically  found  to  be  very  sensitive  to  the 
input  parameters,  particularly  those  such  as  joint  orientation  and 
spacing,  and  the  magnitude  of  the  pre-existing  stress  field.  Within 
the  context  of  the  expected  variation  of  the  parameters  in  the 
real  situation  it  is  then  possible  to  make  a  qualitative  statement 
about  the  stability  of  the  excavation.  This  typically  could  be 
expressed  in  one  of  three  ways:  (!)  within  the  expected  variation 
of  the  input  parameters  the  proposed  excavation  should  be  stable; 

(2)  the  expected  variation  in  the  input  parameters  indicates  that 
the  excavation  may  or  may  not  be  stable,  suggesting  a  possible  need 
for  light  supports;  or  (3),  realistic  variation  of  the  input 
parameters  indicates  that  the  excavation  will  not  stand  unsupported, 
suggesting  the  need  for  heavier  supports. 

This  chapter  presents  the  results  of  numerous  analyses  of  the 


IV-2 


behavior  of  excavations  in  jointed  rock  in  an  attempt  to  determine 
which  parameters  had  the  greatest  effect  on  the  stability  of  the 
excavation.  The  models  chosen  for  analyses  are  characterized  by 
simple  joint  configurations  and  the  behavior  examined  through  the 
contact  forces  that  exist  between  the  blocks.  This  behavior  is  then 
interpreted  in  light  of  arching  theory. 

The  term  arch  usually  conveys  the  concept  of  a  vaulted  opening 
so  that  arching  seems  to  describe  the  process  by  which  the  vaulted 
opening  is  formed.  As  used  by  Woodruff  (1966),  the  term  arching 
refers  to  the  natural  process  by  which  a  fractured  material 
acquires  a  certain  ability  to  support  itself  through  the  resolution 
of  the  vertical  component  of  its  weight  into  diagonal  thrust. 

Arching  theories  examine  the  processes  by  which  this  stress  transfer 
is  accomplished. 

Arching  theories  are  based  upon  an  analysis  of  beam  behavior 
such  as  that  presented  by  Woodruff  (1966)  which  is  illustrated  in 
Figure  4.1(a).  The  analysis  indicates  that  zones  of  tension  and 
compression  exist  in  the  strata  above  the  opening.  In  recognition 
of  the  fact  that  rock  is  relatively  weak  in  tension,  the  lower  row 
of  the  strata  above  the  excavation  is  represented  as  being  comprised 
of  two  independent  blocks.  The  compressive  forces  which  act  to 
maintain  the  stability  of  the  two  blocks  above  the  excavation  are 
illustrated  in  Figure  4.1(b).  The  similarity  of  this  force 
distribution  to  that  of  a  three  hinged  structural  arch  is  obvious; 
an  analysis  of  excavation  roofs  in  this  manner  is  often  termed 
linear  arch  analysis.  As  noted  in  Figure  4.1(b)  no  vertical  force 
transmittal  to  the  two  roof  blocks  is  assumed  to  occur.  Thus 


linear  arch  analysis,  in  this  simple  form  at  least,  is  an  analysis 
of  the  lower  row  of  strata  only. 

A  significant  portion  of  the  results  of  this  chapter  are 
based  upon  the  recognition  of  arching  patterns  in  the  Distinct 
Element  calculated  contact  force  distributions  in  the  jointed  rock 
surrounding  an  excavation.  It  is  worthwhile  then  to  briefly 
describe  the  origin  of  the  contact  forces  and  the  manner  in  which 
the  arches  are  recognized. 

The  contact  forces  represent  the  interaction  between  the  blocks. 
A  simple  illustration  is  presented  in  Figure  4.1(c)  where  one 
block  is  shown  on  top  of  another;  it  is  the  upper  block  that  is  of 
interest.  The  weight  of  the  block,  shown  as  w  in  the  figure  is  the 
force  tending  to  cause  movement.  The  interaction  with  the  lower 
block  leads  to  two  contact  forces  which  equilibrate  the  upper  block 
weight.  The  contact  forces  are  calculated  from  the  overlap  or 
interpenetration  of  the  blocks  as  described  in  Chapter  2.8  and 
represent  an  equilibrium  condition.  The  contact  forces  in  more 
complex  models  are  calculated  exactly  the  same  way. 

The  recognition  of  arching  in  the  contact  force  distributions 
is  based  upon  two  observations.  First,  the  arching  phenomenon  is 
indicated  by  the  presence  of  relatively  high  magnitude  contact  forces 
Arching  involves  diagonal  thrust,  but  the  vertical  component  of 
this  thrust  must  be  at  least  equal  to  the  weight  of  the  blocks  being 
supported  by  the  arch  action.  Since  the  arch  thrusts  typically  form 
at  low  angles,  the  horizontal  component  of  the  thrust  is  usually 
large.  The  recognition  of  arching  also  is  based  upon  the  necessary 
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Figure  4.1  (a)  General  distribution  of  stress  in  a  beam  over  an 

opening;  (b)  self  supporting  linear  arch  model;  and 
(c)  contact  forces  due  to  weight  of  block. 
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continuity  of  the  force  distributions.  In  particular,  a  block 
which  is  in  equilibrium  can  have  no  unbalanced  forces  acting  on  it. 
Thus,  the  occurance  of  high  contact  forces  in  a  region  of  low  contact 
forces  can  only  be  possible  if  some  mechanism  is  acting  to  transfer 
these  forces  to  a  high  stressed  region. 

The  analyses  presented  in  this  chapter  indicate  interactions 
exist  within  the  mass  which  are  typically  neglected  by  arching 
theory.  The  analyses  also  indicate  trends  suggesting  which  input 
parameters  have  the  most  effect  on  the  stability  of  an  excavation 
in  jointed  rock. 
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4 . 2  General  Observations  on  Force  Distribution  Around  Excavations 

in  Jointed  Rock 

An  elastic  analysis  of  the  behavior  of  the  rock  surrounding 
an  excavation  invariably  leads  to  the  conclusion  that  the  vertical 
stress  component  is  transferred  to  the  rock  on  either  side  of  the 
excavation  resulting  in  a  region  of  relatively  low  stress 
immediately  above  the  excavation.  This  fact  has  been  demonstrated 
many  times  in  the  past  by  using  photo  elastic  models  and  recently 
by  using  Finite  Element  analysis.  A  typical  plot  of  stresses 
surrounding  an  opening  in  an  elastic  medium  is  presented  in 
Figure  4.2(a).  Note  that  a  zone  of  tension  exists  at  the  crown. 

The  Distinct  Element  method  can  be  used  to  study  the 
redistribution  of  stress  due  to  an  excavation  in  a  jointed  medium. 

As  an  example,  consider  the  model  of  the  roof  of  an  excavation 
presented  in  Figure  4.2(b).  Owing  to  the  discontinuous  nature 
of  the  vertical  jointing,  only  blocks  in  the  lower  four  rows  are 
able,  from  a  kinematic  standpoint,  to  move  into  the  excavation. 

The  weights  of  all  of  the  blocks,  drawn  to  a  common  scale,  are 
illustrated  in  Figure  4.2(c).  All  of  the  contact  vector  distribu¬ 
tions  for  the  jointed  models  illustrated  in  Figure  4.2  utilize  the 
same  force  scale.  Figure  4.2(d)  illustrates  the  redistribution  of 
forces  that  occurs  as  the  room  is  excavated.  Analogous  to  the 
elastic  model,  the  bulk  of  the  stress  is  transferred  to  the  material 
on  either  side  of  the  excavation  and  a  destressed,  triangular  zone 
is  seen  directly  above  the  opening.  The  lower  portion  of  the 
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Fiaure  4.2  (continued):  (c)  block  weights  for  jointed  roof  model ; 
(d)  force  distribution  in  roof  following  excavation 
(overburden  due  solely  to  block  weight). 


Figure  4.2  (continued:  (e)  force  distribution  in  roof  due  to 

block  weight  and  additional  load  to  simulate  greater 
depth:  (f)  stress  distribution  in  triangular  wedge 
supported  at  lower  corners. 
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Figure  4.2  (continued):  (g)  stress  distribution  in  jointed  roof 
by  Finite  Element  analysis. 
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triangular  zone  is  seen  to  be  in  tension  in  the  elastic  case, 
whereas  in  the  jointed  model  the  absence  of  contact  forces  at 
the  center  of  the  bottom  row  of  blocks  indicates  that  the  response 
of  the  jointed  model  is  characterized  by  opening  of  joints. 
Furthermore,  the  pattern  of  compressional  contact  forces  in  the 
lower  portion  of  the  traingular  zone  indicates  that  an  arch  is 
forming  and  supporting  the  weight  of  the  blocks  within  the  triangular 
zone.  The  formation  of  this  arch  is  discussed  in  section  4.3.3. 

To  investigate  the  effects  of  greater  depth  of  the  excavation, 
a  uniform  force  was  applied  to  the  upper  row  of  blocks  in  the  model. 
Figure  4.2(e)  is  a  plot  of  the  stress  distribution  for  the  case 
where  the  applied  forces  correspond  to  a  depth  of  excavation 
approximately  ten  times  that  illustrated  in  Figure  4.2(b).  The 
same  relaxed  triangular  zone  characteristic  of  the  low  stress 
problem  can  be  seen  in  Figure  4.2(e). 

Comparison  of  the  force  distributions  in  the  jointed  models 
with  that  for  the  elastic  case  indicates  that  although  arches  are 
developing  in  both  cases  the  support  afforded  by  the  formation  of 
the  arch  is  fundamentally  different  in  the  two  cases.  In  the 
elastic  case  a  single  arch  forms  relatively  high  in  the  roof  and 
the  weight  of  the  material  in  the  destressed  zone  is  supported 
through  the  development  of  tens-'onal  forces.  The  jointed  models 
on  the  other  hand  develop  two  arches,  one  relatively  high  in  the 
roof  which  delineates  the  destressed  zone;  and  one  that  acts  to 
support  the  lower  strata. 
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This  observation  indicates  a  significant  difference  between 
the  behavior  predicted  by  elastic  analyses  and  by  the  Distinct 
Element  method.  To  determine  to  what  extent  the  elastic  behavior 
depended  upon  the  continuity  of  the  mass,  several  idealized  models 
of  roof  behavior  were  analyzed,  two  of  which  are  described  here. 

Figure  4.2(f)  presents  the  results  of  a  typical  elastic 
analysis  wherein  the  destressed  zone  was  analyzed  independently  of 
the  surrounding  rock  mass.  The  arch  is  still  seen  to  form  in  the 
upper  portion  of  the  wedge  of  material  and  the  material  in  the 
lower  part  of  the  wedge  is  in  tension.  This  is  in  direct  contrast 
to  the  behavior  of  the  jointed  masses  analyzed  by  the  Distinct 
Element  method. 

Figure  4.2(g)  presents  the  results  of  a  Finite  Element  analysis 
where  the  destressed  zone  was  bounded  approximately  by  a  series 
of  joint  elements.  Once  again,  the  resultant  behavior  is  character¬ 
ized  by  a  high  arch  and  tensional  forces;  no  evidence  of  arching 
action  in  the  lower  portion  of  the  destressed  zone  is  seen. 

The  behavior  of  the  roof  above  an  excavation  in  an  elastic 
medium  is  thus  seen  to  be  fundamentally  different  than  the  behavior 
of  a  similar  excavation  in  a  jointed  medium.  The  next  portion  of 
this  chapter  presents  the  results  of  an  investigation  to  determine 
the  causes  of  this  fundamental  difference. 
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4 . 3  A  Model  for  the  Behavior  of  Jointed  Mi ne  Roofs 

The  analyses  discussed  in  this  chapter  deal  with  the  behavior 
of  the  roofs  of  excavations  in  a  medium  where  jointing  is  vertical 
and  horizontal.  The  models  have  been  kept  simple  deliberately  so  as 
to  gain  insight  into  relationships  among  the  various  parameters.  As 
the  overall  goal  of  this  study  is  to  demonstrate  the  usefulness  of 
the  Distinct  Element  method  in  the  analysis  of  excavation  in  jointed 
rock,  more  effort  has  been  expended  on  demonstrating  the  effect  of 
varying  the  significant  parameters  than  on  developing  a  single,  all 
encompassing  equation  purported  to  describe  the  behavior  of  mine 
roofs. 

The  majority  of  the  analyses  to  be  discussed  utilize  similar 
jointed  models,  but  although  the  chosen  models  are  realistic  the 
limitations  were  not  imposed  by  the  Distinct  Element  method  as  such; 
the  techniques  presented  iri  this  chapter  are  equally  applicable  to 
any  model  configuration.  Although  outside  the  scope  of  this  study  it 
is  easy  to  envision  an  eventual  compendium  of  various  model  geometric 
that  portrays  graphically  the  differences  in  the  behavior  of  models. 

4.3.1  The  basic  model 

The  basic  model  used  for  analysis  consists  of  a  rectangular 
opening  in  a  rock  mass  with  continuous  horizontal  jointing  and 
discontinuous  jointing  in  the  vertical  direction  as  shown  in  Figure 
4.3.  This  model  does  not  consider  the  effect  of  joint  inclination 
but  does  allow  for  variation  of  the  span,  aspect  ratio  of  the  blocks 
and  friction  angle  of  the  joint  surfaces. 
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Figure  4.3  Jointed  model  upon  which  analysis  was  based.  (0  is 

span  width,  w  is  block  width,  t  is  block  thickness  and 
h  is  height  of  the  triangular  wedge. 
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Figure  4.4  Diagramatic  section  of  a  roof  fall  (After  Jones  and 
Davies,  19 29). 
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As  justification  for  the  use  of  the  model  a  brief  summary  is 
given  of  four  previous  studies  comprising  theoretical  calculations, 
laboratory  as  well  as  field  observations  and  measurements,  which 
utilized  a  similar  model  or  support  the  model. 

1)  Behavior  of  Coal  Mine  Roofs 

Jones  and  Davies  (1929)  presented  a  summary  of  their 
observations  of  roof  behavior  in  British  coal  mines.  They  found 
that  roof  falls  were  invariably  limited  in  height,  the  majority  of 
the  falls  extending  from  3  to  10  feet  upward;  falls  exceeding  15  feet 
in  height  were  considered  exceptional.  Judging  from  their  description 
of  the  mining  methods,  the  drifts  were  from  12  to  18  feet  wide.  They 
also  concluded  that  the  canopy  of  the  fall  was  typically  stepped  along 
the  sides  "in  the  manner  of  a  stairway  viewed  from  below".  A 
diagramatic  section  from  their  paper  is  reproduced  in  Figure  4.4. 

2)  Loads  on  Tunnel  Supports 

On  the  basis  of  observations  and  measurements  of  timber 
crushing  in  railway  tunnels,  Terzaghi  (1946)  proposed  a  classification 
scheme  for  the  estimation  of  the  maximum  probable  load  on  tunnel 
supports.  Figure  4.5  presents  one  of  the  models  used  by  Terzaghi 
to  illustrate  his  concept  that  in  relatively  thin  strata  with  many 
joints  a  peaked  roof  will  develop.  According  to  Terzaghi  a  constant 
load  with  a  height  equal  to  the  height  of  the  peaked  roof  acts  to  load 
the  tunnel  supports. 

3)  Laboratory  Investigation  of  Arching 

Trollope  (1966)  utilized  a  physical  model  with  continuous 
joints  parallel  to  the  roof  and  discontinuous  jointing  in  the 
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perpendicular  direction  to  demonstrate  the  behavior  of  an  excavation 
roof.  Like  Terzaghi  he  concluded  that  in  general,  two  zones  may  be 
identified  within  the  immediate  roof. 


Figure  4.5  Maximum  probable  overbreak  if  no  support  furnished 
(Terzaghi,  1946) 


Figure  4.6  Trollopes  Block  Jointed  Model  (Trollope,  1966) 
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The  first  is  inherently  stable;  the  other  zone  which  he  referred 
to  as  the  suspended  zone,  corresponds  roughly  with  Terzaghi's 
triangular  zone.  Whereas  Terzaghi  concluded  that  the  material  within 
the  zone  would  load  the  tunnel  supports,  Trollope  was  more  concerned 
with  the  development  of  arching  and  stability  within  the  suspended 
zone.  Trollope's  model  is  shown  diagramatically  in  Figure  4.6. 

4)  Theoretical  Stability  Analysis  of  Underground  Openings 

Wang,  Panek  and  Sun  (1971)  utilized  Finite  Element  analysis 
techniques  to  determine  the  stress  distribution  surrounding  excavations 
in  a  homogeneous  medium.  The  maximum  shearing  stresses  so  calculated 
were  then  utilized  in  a  Limit  Equilibrium  analysis  to  determine 
potential  fracture  surfaces.  If  the  potential  fracture  surfaces 
were  found  to  be  unstable,  they  were  termed  critical.  Although  not 
directly  applicable  to  problems  of  jointed  rock,  their  results 
nevertheless  indicate  that  the  critical  fracture  surfaces  define 
triangular  wedges  above  the  excavation.  Possible  and  critical 
fracture  surfaces  calculated  by  their  method  for  square  and  rectangular 
openings  are  illustrated  in  Figure  4.7.  These  plots  indicate  an 
expected  maximum  height  of  the  triangular  wedge  of  from  0.15  to  0.5 
times  the  excavation  width  depending  upon  Poisson's  ratio  and  the 
coefficient  of  internal  friction. 

4.3.2  Properties  of  the  basic  model 

Referring  once  again  to  Figure  4.3  it  can  be  seen  that,  by 
kinematic  considerations,  a  triangular  wedge  of  material  is  free  to 


move  into  the  excavation.  The  height  of  this  triangular  wedge 
(referred  to  by  Terzaghi  as  overbreak  and  by  Trollope  as  the  height 
of  the  suspended  zone)  is  easily  calculated  in  terms  of  the  excava¬ 
tion  span  and  the  thickness  and  width  of  the  blocks  defined  by  the 
jointing  pattern. 

The  number  of  blocks  (b)  in  the  bottom  row  of  the  roof  strata 
is  given  by: 

b  =  0/w 

0  is  the  true  span  of  the  excavation 
w  is  the  block  width 

(Note  that  span  is  defined  as  illustrated  in  Figure  4.3) 
Restricting  the  analyses  to  the  case  where  all  blocks  are 
identical,  it  is  easily  verified  that  the  height  of  the  triangular 
wedge  is  given  by: 

h  =  b  .  t  4.1 

where:  t  is  the  block  thickness 
In  terms  of  the  aspect  ratio  of  the  blocks  (A  =  t/w) 

h  =  0  .  A  4.2 

Equation  4.2  is  plotted  in  Figure  4.8  as  a  family  of  curves 
representing  the  wedge  height  as  a  function  of  span  for  various  aspect 
ratios;  the  block  shapes  are  also  illustrated  for  several  values  of 
the  aspect  ratio.  The  curves  represent  kinematic  considerations  only 
and  indicate 't-hat  increasing  the  aspect  ratio  of  the  blocks  has  the 
effect  of  increasing  the  height  of  the  traingular  wedge  and  thus,  for 
a  constant  block  width,  the  volume  of  material  that  tends  to  move  into 
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the  excavation.  The  curve  corresponding  to  an  aspect  ratio  of  0.5 
is  plotted  more  boldly  since  this  is  the  equation  for  the  height  of 
the  arch  in  stratified  rock  according  to  Terzaghi. 

The  graph  is  presented  without  units  since  the  axes  are 
consistent;  that  is,  if  the  span  is  measured  in  meters,  then  the 
height  of  the  wedge  will  be  in  meters. 


Figure  4.8  Relationship  between  span  width  (0),  and  height  of 
suspended  zone  (h)  for  various  values  of  the  aspect 
ratio  (t/w)  of  the  model  illustrated  in  Figure  4.3. 

The  aspect  ratio  of  the  blocks  is  graphically  portrayed 


4 . 4  The  Stability  of  Roofs  in  the  Absence  of  Arch  Development 
The  simplest  model  of  roof  behavior  considered  comprises 
excavations  where  the  roof  strata  form  a  monolithic  block  and 
resistance  to  downward  movement  of  the  roof  strata  is  provided  only 
by  frictional  resistance  acting  along  the  vertical  sides  of  the 
block.  Owing  to  the  complete  absence  of  flexural  deformation  in  this 
model,  arching  behavior  is  unable  to  develop.  Typical  geometries  of 
the  roof  block  are  illustrated  in  Figure  4.9. 

In  models  of  this  type,  Limit  Equilibrium  principles  are  often 
used  to  develop  the  governing  equation  (see  for  instance,  Szechy, 

1970).  The  idealized  force  distributions  shown  in  Figure  4.9  were 
used  to  derive  a  relationship  between  the  horizontal  thrust  (H),  the 
total  weight  of  the  roof  block  (W)  and  the  friction  angle  In 

order  to  derive  this  relationship,  an  assumption  regarding  the  relative 
magnitudes  of  the  frictional  reaction  (R-j,  etc.)  must  be  made.  To 
make  the  models  illustrated  in  Figure  4.9  statically  determinate  two 
assumptions  must  be  made:  first,  it  is  assumed  that  full  frictional 
resistance  is  mobilized  at  all  points  of  contact;  and,  second,  it  is 
assumed  that  the  frictional  resistance  vectors  are  symmetric  about 
the  block.  Under  these  assumptions,  equilibrium  principles  can  be 
used  to  derive  the  equation  relating  horizontal  force  to  block  weight 
and  friction  angle.  This  relationship  is: 

H  =  1/2  W  cot  <j>  4.3 

A  number  of  monolithic  roof  geometries  were  analyzed  by  the 
Distinct  Element  method  for  purposes  of  comparison  to  equation  4.3. 

The  results  of  these  analyses  are  presented  in  Figure  4.10  where  the 
joint  plane  angle  of  friction  required  for  stability  is  plotted  as 
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Figure  4.10  Friction  angle  ($5)  required  for  stability  as  a  function 
of  horizontal  force  (H)  and  roof  weight  (VI)  in  a  non 
arching  model. 
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a  function  of  the  applied  horizontal  force  and  the  roof  weight.  The 
family  of  curves  plotted  in  Figure  4.10  was  generated  using  equation 
4.3;  it  is  readily  apparent  upon  inspection  of  the  figure  that  there 
is  a  high  degree  of  correlation  bet  ween  the  horizontal  force 
required  for  stability  as  calculated  by  equation  4.3  and  that 
calculated  by  the  Distinct  Element  method. 

In  the  derivation  of  equation  4.3  it  was  assumed  that  full 
frictional  resistance  was  developed  at  sliding  contacts  and  that  the 
frictional  resistance  developed  symmetrically.  Figure  4.11 
illustrates  that  this  is  indeed  the  case;  the  three  representative 
geometries  presented  in  the  figure  have  rully  developed  frictional 
resistances  and  the  symmetry  is  obvious.  The  reason  that  some  of 
the  contact  forces  point  away  from  the  sliding  block  and  that  some 
point  toward  it  is  due  to  the  plotting  convention  of  the  Distinct 
Element  program.  Since  each  contact  point  comprises  two  blocks, 
there  must  be  a  force  acting  on  each  block.  The  convention 
adopted  is  to  plot  the  force  corresponding  to  the  edge  upon  which 
sliding  is  occuring. 


Figure  4.11  Frictional  resistance  developed  in  no-arching 
models  at  onset  of  sliding  failure. 
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4 . 5  An  Examination  of  the  Stability  of  Jointed  Roofs 
4.5.1  The  Voussoir  arch 

The  concept  of  an  arch  is  of  fundamental  importance  in  the  study 
of  the  way  in  which  loads  are  transfered  to  the  sides  of  an  opening. 
Relatively  large,  unsupported  spans  in  jointed  rock  can  only  be 
obtained  if  the  major  portion  of  the  load  due  to  the  overlying  strata 
is  carried  to  the  abutments  through  arches  forming  in  the  jointed  rock 
immediately  above  an  excavation.  As  an  aid  in  visualizing  the  way 
in  which  an  arch  develops  in  jointed  media,  it  is  instructive  to 
examine  a  particular  type  of  masonry  structure  which  utilizes  arch 
principles  to  transfer  gravity  loads  to  abutments.  This  structure 
is  known  as  the  Voussoir  arch  and  examples  of  this  type  of  arch  can 
be  seen  in  the  ancient  Roman  aquiducts  and  in  the  vaulted  ceilings 
of  European  cathedrals.  The  Voussoir  arch  is  still  in  common  use 
today  for  purposes  such  as  relieving  the  loads  on  a  lintel  over  a 
window  or  for  bridging  the  span  of  a  road. 

Despite  the  widespread  usage  of  the  Voussoir  arch  in  masonry 
construction,  the  first  rational  attempts  to  quantify  the  behavior  of 
the  Voussoir  arch  did  not  appear  until  Pippard,  Tranter  and  Chitty 
(1936)  and  Pippard  and  Ashby  (1938)  published  the  results  of  an 
extensive  experimental  study  of  the  mechanics  of  the  Voussoir  arch. 

A  significant  outcome  of  their  research  was  the  observation  that  a 
Voussoir  arch  could  be  analyzed  as  a  three  hinged,  and  thus  statically 
determinate,  arch. 

The  analyses, performed  by  Pippard,  Tranter  and  Chitty  and  Pippard 
and  Ashby  are  significant  to  this  present  study  for  at  least  three 


1)  the  analysis  was  an  attempt  to  quantify  the  behavior 
of  a  jointed  medium; 

2)  the  results  of  the  theoretical  studies  were  compared 
to  physical  models;  and 

3)  the  method  of  analysis  introduces  the  general 
calculation  techniques  of  linear  arch  analysis. 

It  would  seem  worthwhile,  therefore,  to  devote  some  detail  to  the 
above  mentioned  work. 

Figure  4.12  illustrates  a  Voussoir  arch  as  it  might  occur  as  a 
structural  element  of  a  small  bridge.  Descriptive  terminology  for 
the  various  components  of  the  arch  is  identified  in  the  figure.  The 
wedge  shaped  blocks  which  comprise  the  arch  are  individually  known  as 
voussoirs;  they  are  usually  disposed  symmetrically  about  a  central 
voussoir  known  as  the  keystone.  Pippard  and  Baker  (1948)  summarized 
the  earlier  work  of  Pippard,  Tranter  and  Chitty  (1936)  and  Pippard 
and  Ashby  (1938)  and  noted  that  no  single  voussoir  is  more  important 
structurally  than  any  other  and  that  a  keystone  is  not  an  essential 
feature  of  the  arch.  The  keystone  is  an  aesthetic  and  traditional 
feature  rather  than  a  structural  requirement;  thus  a  Voussoir  arch 
can  be  stable  even  with  a  central  joint  present. 

As  previously  mentioned,  the  research  of  Pippard  and  his  co¬ 
workers  indicated  that  the  force  distribution  in  a  Voussoir  arch 
would  be  statically  determinate,  in  the  absence  of  fixity  at  the 
abutments,  owing  to  the  development  of  three  hinges.  For  a  symmetrically 
loaded  Voussoir  arch  two  of  the  hinges  were  seen  to  be  loacted  at  the 


Figure  4.12  A  typical  Voussoir  arch  application  with  component 
parts  identified. 


Figure  4.13  Nomenclature  used  in  analysis  of  a  non-synmetrical ly 
loaded  Voussoir  arch.  For  a  description  of  identified 
variables  see  the  text. 


IV-29 


abutments  with  the  third  hinge  at  midspan  if  a  central  joint  existed 
or  on  one  of  the  faces  of  the  keystone  if  it  were  present.  For  the 
case  of  non-symmetrical  point  loading  the  two  abutment  hinges 
developed  as  in  the  symmetrical  case,  but  the  position  of  the  third 
hinge  was  initially  variable,  typically  located  somewhere  on  the 
extrados  between  midspan  and  the  loaded  voussoir.  Increased  load  or 
abutment  movement  caused  the  position  of  the  variable  hinge  to  move 
closer  to  the  loaded  voussoir;  when  the  hinge  reached  the  joint  next 
to  the  loaded  voussoir  on  the  midspan  side,  it  did  not  change  its 
position  again  until  failure  had  occured. 

The  observations  concerning  the  formation  of  hinges,  coupled  with 
the  results  of  the  other  analytical  and  experimental  studies  performed 
by  Pippard  and  his  co-workers  provide  good  data  for  checking  the 
accuracy  of  the  Distinct  Element  method  as  well  as  introducing  the 
techniques  of  linear  arch  analysis  which  will  be  used  extensively  in 
this  chapter. 

The  idealized  model  used  in  the  present  study  is  illustrated  in 
Figure  4.13.  The  model  arch  is  circular  in  shape  and  the  abutments 
subtend  an  angle  of  20.  Hinges  are  assumed  to  develop  at  the 
abutments  and  at  the  extrados  of  the  joint  nearest  the  point  of 
application  of  the  external  load  W  on  the  side  nearest  the  crown. 

Each  individual  voussoir  subtends  an  angle  of  26  and  has  a  weight  w. 
The  voussoirs  are  numbered  consecutively  from  1  at  the  keystone  to 
m  at  the  abutment;  thus  the  total  number  of  voussoirs  in  the  arch  is 
2m- 1.  In  addition  to  the  external  load,  the  arch  is  also  loaded  by 
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its  self  weight.  With  respect  to  the  non-abutment  hinge,  self  weights 
of  magnitude  aw  and  bw  act  on  the  shorter  and  longer  spans  respectively, 
as  illustrated  in  Figure  4.13.  The  points  of  application  of  the  loads 
are  located  as  follows:  the  external  load  W  is  applied  at  the  centroid 
of  voussoir  number  n;  the  longer  span  load  is  located  at  an  angle  £ 
clockwise  from  the  vertical;  the  shorter  span  load  is  located  at  an 
angle  n  counter  clockwise  from  the  hinge  which  in  turn  is  located 
at  an  angle  <f>  counter  clockwise  from  the  vertical.  It  is  easily  shown 
that  for  an  odd  number  of  voussoirs; 

n  =  S  =  (m-n+1)  6; 

<f>  =  (2n  -  3)  6; 

0  =  (2m  -1)6;  4.4a 

a  =  m  -  n  +  1 ;  and 

b  =  m  +  n  -  2 

For  a  Voussoir  arch  with  an  even  number  of  voussoirs  a  slight 
modification  must  be  introduced;  the  voussouirs  are  numbered 
consecutively  from  the  crown  joint  starting  with  1  and  ending  with 
m.  Thus,  these  are  2m  voussoirs  in  the  arch.  The  corresponding 
parameters  are  given  by: 

n=£=  (m-n+1)  6; 

*  =  2(n  -  1)  6; 

Q  =  2  m  5;  4.4b 

a  =  m  -  n  +  1 ;  and 

b  =  m  +  n  -  2 

The  analytical  approach  used  by  Pippard,  Tranter  and  Chitty 
(1937)  involved  the  determination  of  strain  energies  and  application 
of  Cast igl iano 1 s  theorems.  This  approach  was  necessary  because  they 


IV-31 


were  interested  in  displacements  as  well  as  forces  and  because  they 
analyzed  indeterminate  as  well  as  determinate  arches.  Since  the 
present  study  is  limited  to  three  hinged  arches  which  are  statically 
determinate,  a  simpler  analytical  method  has  been  adopted. 
Equilibrium  principles  provide  the  means  to  determine  the  force 
distribution  in  a  statically  determinate  structure  and  have  been 
used  to  derive  the  following  equations. 

The  horizontal  force  H  induced  by  a  point  load  of  magnitude  W 
applied  at  the  centroid  of  voussoir  n  subject  to  the  development  of 
hinges  in  the  manner  previously  described  is  found  by  the  superposi¬ 
tion  of  the  horizontal  force  H  due  to  the  external  load  and  the 

w 

horizontal  force  Hs  due  to  the  self  load.  These  horizontal  forces 
are  calculated  by  taking  moments  about  the  midspan  hinge  and  using 
an  equation  expressing  vertical  equilibrium. 

The  horizontal  thrust  due  to  the  self  weight  of  the  arch  is 
given  by: 

H$  -((sine  -  sin*)  Ls  -  aw  (sin  (*  +  n)  -  sin*))-^-.— -Q-  4.5 

The  quantity  Ls  represents  the  vertical  abutment  reaction  on  the 
shorter  span  due  to  the  self  weight  of  the  arch  and  is  given  by: 

L$  =((sin*  +  sin  (8  +  n))  aw  +(sin9  -  sin  n)  bw)  ^ — sTrTo  4.6 

The  horizontal  thrust  due  the  applied  point  load  is  given  by: 

H  =  (l  (sine  -  sin  (*  +  6)  -  W(sin(*  +6)  -  sin*))  1 _ 

w  w  cos*  -  cose 


4.7 
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The  quantity  L, ,  represents  the  vertical  abutment  reaction  on  the 
w 

shorter  span  due  to  the  point  load  and  is  given  by: 


To  demonstrate  the  validity  of  the  above  equations,  several 
data  points  .from  Pippard  and  Baker  (1948)  are  plotted  in  Figure  4.14a 
with  the  plotted  curve  representing  the  ratio  of  horizontal  force  to 
applied  load,  neglecting  the  self  weight  of  the  arch,  given  by 
equations  4.7  and  4.8.  Since  Pippard  and  Baker  did  not  present  their 
analytical  expressions  for  the  ratio  of  horizontal  thrust  to  applied 
load,  the  parameters  used  in  equations  4.7  and  4.8  were  scaled  from 
drawings  in  their  paper.  In  light  of  this  limitation,  the  fit  of 
the  data  points  to  the  theoretical  expression  can  be  described  as 
quite  good. 

The  Distinct  Element  method  was  used  to  analyze  several  Voussoir 
arches.  The  results  of  one  of  these  series  of  tests  are  presented  in 
Figure  4.14b.  The  theoretical  curve  presented  in  the  figure 
represents  the  horizontal  force  due  to  an  applied  point  load, 
incorporating  the  horizontal  force  due  to  the  self  weight  of  the 
arch,  as  given  by  equations  4.5  through  4.8.  In  this  case,  as  in 
other  Voussoir  arches  analyzed  by  the  Distinct  Element  method,  the 
test  points  fit  the  theoretical  curve  quite  well,  and  suggest  that 
the  Distinct  Element  method  is  capable  of  reproducing  the  results 
of  the  physical  model  tests  performed  by  Pippard  and  his  co-workers. 

* 


Figure  4.14(a)  Horizontal  thrust  developed  due  to  an  applied  point 
load  neglecting  the  self  weight  of  the  arch. 


Figure  4.14(b)  Horizontal  thrust  due  to  an  applied  point  load 
incorporating  the  self  weight  of  the  arch. 
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To  complete  the  discussion  on  Voussoir  arches  it  is  instructive 
to  examine  the  force  distribution  in  the  arches  for  several  cases  as 
calculated  by  the  Distinct  Element  method.  The  geometry  of  the  arch 
and  two  force  distributions  for  different  positions  of  the  applied 
point  load  are  presented  in  Figure  4.15;  also  shown  in  the  figure 
is  the  geometry  of  the  arch  at  failure  in  response  to  increased  load. 
Immediately  apparent  in  both  force  distributions  is  the  formation  of 
the  midspan  hinge  as  evidenced  by  absence  of  contact  force  on  one 
corner  of  the  loaded  block.  Pippard  and  Ashby  (1938)  concluded  that 
the  position  of  this  hinge  was  invariable  once  finite  displacement 
of  the  abutments  or  sufficient  loading  had  occured.  As  previously 
noted,  the  hinge  always  formed  on  the  extrados  of  the  arch  on  the 
midspan  side  of  the  block  to  which  the  point  load  had  been  applied; 
in  all  of  the  arches  analyzed  by  the  Distinct  Element  method  the 
midspan  hinge  was  seen  to  develop  in  the  manner  described  by  Pippard 
and  Ashby. 

The  force  distribution  in  the  arch  is  also  indicative  of  the 
way  in  which  the  failure  of  the  arch  ultimately  occurs  in  response 
to  increased  loading.  Examination  of  the  force  distributions  in 
Figure  4.15  (b)  and  (c)  show  that  in  both  cases  the  longer  span  is 
experiencing  far  less  compressive  force  on  the  extrados  than  on  the 
intrados.  As  the  externally  applied  load  is  increased  to  induce 
failure,  the  geometry  shown  in  Figure  4.15(d)  develops.  The 
increased  load  leads  to  the  development  of  a  fourth  hinge  on  the 
arch  at  which  point  the  arch  collapses.  The  position  of  the  fourth 
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hinge  is  not  as  predictable  as  the  other  three,  and  is  complicated 
by  the  fact  that  slippage  may  occur  along  the  sides  of  the  voussoirs. 
The  method  of  calculation  of  the  critical  external  load,  which 
involves  trial  and  error  procedures  and  is  beyond  the  scope  of  this 
brief  introduction  to  Voussoir  arches,  is  discussed  by  Pippard  and 
Baker  (1948). 

4.5.2  Arching  conditions  in  jointed  roofs 

As  early  as  1885  (Jones  and  Davies,  1929)  Fayol  demonstrated 
that  an  arching  action  could  occur  in  bedded  roofs  and  would  act 
to  shield  the  immediate  roof  from  the  full  weight  of  the  overlaying 
material.  The  fact  that  the  height  of  the  dome  formed  when  a  mine 
roof  failed  was  limited  was  taken  by  Jones  and  Davies  as  further 
evidence  that  arching  action  was  occurring  and  acting  to  transfer  the 
bulk  of  the  vertical  load  to  the  adjacent  pillars.  At  a  later  date, 
Evans  (1941)  proposed  that  arching  was  also  occurring  within  the 
immediate  roof  in  the  manner  of  a  Voussoir  Arch. 

Evans  characterized  the  behavior  of  the  lower  strata  in  a  mine 
roof  as  a  jointed  beam  within  which  the  stresses  were  distributed  in 
the  manner  of  a  modified  three  hinged  arch.  As  downward  displacement 
of  the  beam  occurs,  the  central  joint  opens  in  response  to  "bending" 
induced  tension  and  the  compressive  forces  are  increased  at  the 
upper  contact.  The  analogy  to  a  three  hinged  arch  is  clearly  seen 
in  the  postulated  pressure  distribution  which  is  illustrated  in 
Figure  4.1.  Because  the  manner  in  which  the  forces  are  distributed 
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resembles  the  classical  Voussoir  arch,  this  type  of  analysis  is 
often  referred  to  as  Voussoir  beam  analysis. 

Evans'  research,  and  that  which  followed,  was  concerned  with 
the  stress  state  and  subsequent  fracture  of  the  strata  within  the 
immediate  roof  above  the  excavation  and  is  not  directly  applicable 
to  the  present  study.  The  concept  of  two  separate  pressure  arches 
in  the  roof  strata  is,  however,  of  interest. 

In  the  discussions  that  follow,  the  pressure  arch  that  carries 
the  weight  of  the  superincumbent  strata  to  the  sides  of  the  excava¬ 
tion  will  be  termed  the  ground  arch;  the  lower  arch  that  forms 
within  the  wedge  of  failing  material  will  be  termed  the  roof  arch. 

The  analyses  that  form  the  basis  for  the  discussion  presented 
in  this  chapter  indicate  clearly  that  the  stability  of  the  roof  of 
an  excavation  in  jointed  material  is  dependent  upon  the  formation 
of  the  roof  arch.  In  fact,  the  general  pattern  of  force  distribu¬ 
tion  in  the  basic  model  of  this  study  is  that  illustrated  in 
Figure  4.2(d).  Most  of  the  weight  due  to  the  overlaying  strata  is 
transferred  to  the  abutments  through  the  ground  arch;  the  stability 
of  the  resulting  destressed  zone  is  maintained  through  the 
development  of  the  roof  arch  in  the  lower  strata.  Specific 
departures  from  this  general  pattern  were  observed  in  those 
instances  where  the  horizontal  stress  field  was  greater  than  that 
required  for  stability  and  in  those  instances  where  the  block 
thicknesses  exceeded  some  critical  thickness.  Both  of  these  occur¬ 
rences  inhibit  block  rotations  and  thus  the  development  of  arching. 
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Although  it  may  be  argued  that  the  geometry  of  the  basic  model 
forces  the  development  of  the  ground  arch  in  the  manner  of  a  corbel, 
the  following  examples  demonstrate  the  formation  of  both  arches 
even  in  those  cases  where  the  geometry  of  the  blocks  does  not  act 
to  aid  the  formation  of  the  ground  arch. 

Before  proceeding  with  the  discussion  it  is  appropriate  to 
mention  a  factor  common  to  all  of  the  Distinct  Element  models 
presented  in  this  chapter.  The  horizontal  stress  field  is  modeled 
by  means  of  loads  applied  at  the  centroids  of  the  outermost  blocks. 
Additionally,  these  blocks  are  modeled  as  having  no  frictional 
resistance  to  lateral  movement.  The  result  of  this  approach  is 
that  the  horizontal  stress  thus  has  the  characteristics  of  a 
"following  load";  the  horizontal  stress  field  always  remains 
constant  and  is  independent  of  lateral  displacement.  This 
simplification  was  necessary  because  the  rigid  blocks  of  the  Distinct 
Element  formulation  do  not  allow  blocks  peripheral  to  the  excavation 
to  accomodate  movement  through  elastic  strain.  If  this  approximation 
is  not  made,  the  modeled  geometries  are  so  stiff  that  failure  does 
not  occur.  The  analyses  therefore  cannot  model  the  effects  of 
varying  the  joint  stiffness  or  of  the  dilatant  properties  of  real 
joints.  The  analyses  do,  however,  closely  approximate  the  conditions 
modeled  by  linear  arch  analysis  and  are  considered  to  be  valid, 
though  rudimentary,  approaches  to  modeling  the  behavior  of  excavation 
roofs. 

Figure  4.16(a)  illustrates  an  example  of  the  basic  model;  if 
complete  failure  were  to  take  place,  blocks  from  the  lower  six 
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rows  would  move  into  the  excavation.  However,  sufficient  horizontal 
pressure  is  present  so  that  the  configuration  is  just  stable.  The 
distribution  of  contact  forces  is  as  illustrated  in  Figure  4.16(b). 

Although  examination  of  Figure  4.16(b)  indicates  that  the 
middle  joint  in  the  lowest  row  of  blocks  has  opened  at  its  lower 
contact,  the  configuration  of  blocks  is,  nevertheless  stable.  The 
mechanism  that  is  responsible  for  this  stability  is  the  development 
of  the  roof  arch.  The  relaxed  or  suspended  zone  can  be  seen  to 
extend  upward  roughly  four-fifths  of  the  span  distance. 

The  magnitude  of  the  horizontal  force  has  a  significant  effect 
upon  the  behavior  of  the  blocks  in  the  lower  roof.  Figure  4.17 
illustrates  the  same  geometry  as  Figure  4.16(a)  but  in  this  case 
the  horizontal  force  has  a  greater  magnitude.  The  force  distribution 
indicates  that  full  contact  is  maintained  across  the  central  joint 
of  the  immediate  roof  and  that  stability  of  the  roof  is  due  solely 
to  frictionaL  support  at  the  abutments  in  the  manner  of  a  monolithic 
roof. 

Significant  arching  has  not  developed  in  this  model  but  the 
amount  of  horizontal  force  necessary  to  prevent  arch  formation  and 
thus  support  the  roof  by  frictional  resistance  alone  is  approximately 
twice  as  large  as  that  required  for  stability  under  conditions  where 
the  roof  arch  develops.  It  should  be  noted  that  if  the  lower  roof 
comprised  a  single  block,  the  amount  of  force  required  to  stabilize 
the  configuration  by  frictional  resistance  would  be  less  than  the 
case  where  arching  develops. 

Two  examples  where  the  jointing  pattern  does  not  involve 
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corbelling  are  included  in  this  section.  These  examples  demonstrate 
the  development  of  both  the  roof  and  ground  arch  in  two  instances 
where  the  geometry  of  the  rock  mass  does  not  necessarily  act  to 
force  the  development  of  two  arches.  Figure  4.18(a)  illustrates  a 
model  with  continuous  jointing  in  the  horizontal  and  vertical 
directions  subjected  to  a  horizontal  force  just  sufficient  to 
maintain  equilibrium.  The  resulting  force  distribution  is  illustrated 
in  Figure  4.18(b);  the  behavior  of  the  roof  is  again  characterized 
by  a  relaxed  zone  extending  upwards  roughly  two-thirds  the  width 
of  the  span.  This  zone  is  supported  by  the  roof  arch.  The  ground 
arch  is  clearly  developed  but  not  to  the  same  degree  as  would  be 
expected  in  the  previous  model,  where  the  geometry  of  the  model  aids 
the  development  of  the  ground  arch. 

Figure  4.19(a)  illustrates  a  model  geometry  with  continuous 
vertical  jointing  but  discontinuous  jointing  horizontally;  as  with 
the  model  s-bown  in  Figure  4.18,  the  continuity  of  the  vertical 
jointing  was  expected  to  inhibit  the  formation  of  the  ground  arch 
and  allow  the  mass  to  fail  mono! ithically.  The  force  distribution, 
however,  indicates  that  once  again,  both  the  ground  arch  and  the 
pressure  arch  have  formed  and  led  to  the  characteristic  relaxed  zone, 
although  in  this  case  the  height  of  the  relaxed  zone  extends  only 
one-third  of  the  span  upwards  into  the  roof. 

The  block  movements  that  lead  to  the  development  of  arches  are 
primarily  of  a  rotational  nature.  The  rotations  arise  as  the  unequal 
forces  on  opposite  sides  of  a  block, which  arise  as  the  blocks  move, 
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Figure  4.19 


Formation  of  the  ground  and  roof  arches  in  a 
horizontally  discontinuous  jointed  model. 
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cause  a  moment  imbalance  about  the  centroid  of  the  block.  In  the 
case  of  a  stable  configuration,  equilibrium  is  maintained  through 
horizontal  thrust  whereas  in  an  unstable  configuration,  the  rotation 
can  continue  since  sufficient  equilibrating  forces  cannot  be 
developed.  Figure  4.20  illustrates  a  block  geometry  (a),  the  contact 
force  distribution  (b)  and  the  block  rotations  (c)  corresponding  to 
the  contact  force  distribution.  Comparison  of  (b)  and  (c)  indicates 
that:  all  significant  rotation  is  occurring  within  the  suspended 
zone;  the  magnitude  of  the  rotational  movement  decreases  with  depth 
into  the  roof;  and,  contact  forces  within  the  suspended  zone  are 
primarily  normal  to  joint  surfaces  even  though  this  is  where  the 
most  significant  rotation  has  occurred.  The  development  of  the 
ground  arch  as  seen  in  Figure  4.20(b)  indicates  that  the  suspended 
zone  extends  approximately  four  rows  of  blocks  into  the  roof.  The 
development  of  the  roof  arch  can  also  be  seen.  Considering  the 
relative  cagnfttrdes  of  the  rotations  of  the  blocks  maintaining 
these  arches,  it  is  interesting  to  note  that  larger  forces  are 
developed  in  the  ground  arch  even  though  the  rotations  are  smaller. 
This  is  probably  a  reflection  of  the  higher  degree  of  confinement 
of  the  blocks  maintaining  the  ground  arch.  The  blocks  adjacent 
to  the  excavation  are  free  to  rotate  somewhat  into  the  excavation. 

The  next  row  of  blocks  upward  thus  has  the  freedom  to  rotate  toward 
the  excavation  although  not  as  much  as  the  lower  row.  Successively 
less  rotation  is  permitted  until  at  the  limit  of  the  suspended  zone, 
minimal  rotation  is  occurring. 
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Figure  4.20  Contact  forces  and  corresponding  block  rotations. 
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Figure  4.21  Development  of  block  rotation  as  failure  initiates. 
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As  failure  conditions  develop,  further  rotation  occurs  as  can 
be  seen  in  Figure  4.21.  The  most  significant  change  in  rotation 
occurs  in  the  lowermost  row  where  the  magnitude  of  the  rotations  of 
the  inner  two  blocks  of  the  lower  row  remain  constant  but  those  of 
the  outer  two  blocks  increase  to  a  value  greater  than  that  of  the 
inner  blocks.  This  deflection  then  allows  the  blocks  in  the  next 
row  upward  to  deflect  and  rotate,  effectively  moving  the  loosened 
or  suspended  zone  upward. 

4.5.3  The  development  of  arching  in  single  layer  models 

The  development  of  arches  in  mine  roofs  is  often  explained 
by  recourse  to  simple  models  from  linear  arch  theory  (e.g.  Woodruff, 
1966)  such  as  those  illustrated  in  Figure  4.23.  The  force  distribu¬ 
tion  in  this  type  of  model  is  that  of  a  three  hinged  arch  and  can 
be  readily  deduced  as  the  model  is  statically  determinate.  Consider 
the  left  hand  side  of  the  symmetric  model  as  illustrated  in  Figure 
4.22,  vertical  equilibrium  shows  V  =  W,  and  moment  equilibrium 
about  point  a  shows: 


Figure  4.22  The  Linear  Arch  Model 
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This  force  distribution  represents  a  limiting  condition;  as  vertical 
deflection  of  the  beam  causes  the  contact  at  the  lower  face  to  be 
broken,  the  value  of  the  lever  arm  t  decreases  and  thus  an  increasing 
value  of  H  is  required  for  stability. 

Analyses  by  the  Distinct  Element  method  of  several  linear  arch 
models  is  summarized  in  Table  4.1  and  indicates  that  Equation  4.9 
may  be  used  to  predict  the  horizontal  thrust  required  for  stability 
in  certain  instances.  These  data  show  that  equation  4.9  is  correct 
for  low  aspect  ratios  of  the  blocks  but  loses  validity  as  block 
thicknesses  increase  and  friction  coefficients  of  the  joints 
decrease.  For  larger  block  thicknesses  and  lower  friction 
coefficients,  the  horizontal  thrust  required  for  stability  is  found 
accurately  by  equation  4.3  which  is  repeated  here  for  convenience: 

H  =  W/2  cot  (}>  4.3 

Analysis  of  the  force  distribution  at  failure  provides  insight  into 
this  discrepancy.  Figure  4.24  illustrates  the  force  distribution  at 
failure  in  models  C,  A  and  D.  Figure  4.23(a)  illustrates  conditions 
at  failure  for  model  C  with  p  =  0.5.  Full  frictional  resistance  is 
mobilized  on  the  abutment  joints  and  compression  is  transmitted 
across  the  lower  contact  of  the  mid  span  joint.  Although  arching 
is  developing,  failure  is  by  sliding  along  the  abutment  joints. 

Figure  4.24(b)  illustrates  the  force  distribution  for  model  A  with 
p  =  1.0.  Arching  is  fully  developed  as  evidenced  by  the  absence  of 
force  transmittal  at  the  lower  mid  span  joint  contact.  An  important 
distinction  in  this  case  is  the  fact  that  frictional  resistance  is 
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Table  4.1  Summary  or  Linear  Arch  Models 


Model 

Friction 

Coefficient 

u 

Predicted  Failure 
Loads 

Observed 

Side  Load 
at  Failure 

Observed 
Failure  Mode 

.  .  ■  4 

Arching 

SI  iding 

.25 

280 

500  2 

Arching 

A1 

.5 

140 

500 

Arching 

1.0 

500 

70 

500 

Arching 

.25 

550 

550  3 

SI iding 

B 

.5 

280 

500 

Arching 

1.0 

140 

500 
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Notes:  1  Geometry  of  models 


Model 

A 

t  =  25, 

0  = 

Model 

B 

t  =  50, 

0  * 

Model 

C 

t  =100, 

0  = 

Model 

D 

t  =225, 

0  = 

700,  2  block  linear  arch  model 
700,  2  block  linear  arch  model 
700,  2  block  linear  arch  model 
700,  8  block,  voussior  beam 


2  Difference  in  calculated  side  load  for  arching  models  is 
typically  less  than  2%. 

3  Difference  in  calculated  load  for  sliding  models  is 
typically  less  than  l?i. 


4  Equation  4.1  may  be  rewritten  by  recognizing  that  W  is  a 
function  of  t  and  0  (W  =  t  h  E  x  d ) ;  substitution  leads  to 

O  ^ 

(density,  d  =  1 )  II  =  0  and  thrust  is  thus  independent  of 

8 

block  thickness. 
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not  fully  developed  along  the  abutment  joints.  The  vertical 
component  of  the  abutment  reaction  is  equal  to  the  weight  of  the 
roof  block  while  the  horizontal  component  is  equal  to  the  horizontal 
thrust  required  to  maintain  stability  against  arching  (equation  4.9). 

This  fact  permits  the  calculation  of  the  critical  friction 
coefficient  that  delineates  arching  failure  from  frictional  sliding 
in  the  linear  arch  model.  Consider  an  opening  of  span  0,  with  the 
roof  blocks  having  thickness  t,  and  weight  W  per  block.  From  linear 
arch  theory,  the  thrust  developed  during  arching  is: 

The  critical  friction  angle  ($  crit)  is  the  inverse  tangent  of  the 
ratio  of  the  block  weight  and  the  thrust  force: 

<J>  crit  =  tan"^  (y1)  4.10 

If  the  friction  angle  of  the  joints  is  greater  than  this 
critical  value,  sliding  cannot  occur  and  failure,  if  it  occurs,  will 
be  by  true  arching.  On  the  other  hand,  if  the  friction  coefficient 
on  the  joints  is  less  than  this  critical  value,  sufficient  frictional 
resistance  cannot  be  developed  and  failure  occurs  by  sliding. 

Equation  4.10  is  plotted  in  Figure  4.25;  this  figure  may  be 
used  to  determine  if,  for  a  given  span  and  block  thickness,  failure 
will  be  by  true  arching  or  by  slippage  with  only  partial  development 
of  arching  conditions.  The  equation  has  been  found  to  be  correct  for 
all  linear  arch  models  analyzed. 


thickness  (t) 
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4.5.4  Arching  in  multilayered  models 

In  the  preceeding  section  relationships  were  developed  that 
were  found  to  predict  accurately  the  horizontal  thrust  required  for 
stability  and  the  failure  mode  for  the  single  layer,  linear  arch  or 
Voussoir  beam  model.  The  application  of  these  relationships  to 
multilayered  models  has  not  been  as  successful.  Figure  4.26 
illustrates  a  summary  of  stability  conditions  for  a  number  of  tests 
of  the  basic  model  geometry.  Whereas  in  the  linear  arch  model, 
comprising  a  single  layer  of  blocks,  errors  in  the  predicted 
failure  load  were  less  than  2%  for  arching  failure  and  less  than 
1%  for  sliding  failure,  the  corresponding  errors  for  the  multilayer 
cases  were  as  much  as  40%  for  arching  cases  but  still  less  than  1% 
for  sliding  cases.  Pertinent  data  of  the  multilayer  tests  are 
summarized  in  Table  4.2. 

It  is  prudent  at  this  time  to  digress  momentarily  to  discuss 
the  origin  of  the  data  presented  in  Table  4.2.  In  a  typical  stress 
analysis  the  relationship  between  the  parameters  can  be  expressed 
as  an  equation  and  a  unique  answer  obtained  by  some  solution 
technique  (viz.  inverting  the  stiffness  matrix  in  a  Finite  Element 
analysis).  In  the  Distinct  Element  method,  as  in  other  nonlinear 
explicit  methods,  the  problem  geometry  is  defined,  the  boundary 
conditions  are  specified  and  subsequent  motion  of  the  blocks  is 
observed;  equilibrium  occurs  as  the  force  distribution  converges  to 
a  situation  where  the  relative  accelerations  of  the  blocks  approaches 
zero.  In  terms  of  the  problem  at  hand  this  means  that  a  set  of 


m 
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Table  4.2 

Summary  of  Multilayer  Arching  Tests 


0  1 

t 

b 

W 

Predicted 

Side 

loads  (H) 

2 

at  Failure 

$  crit 

Observed 

Side  lo< 

ids  (H)  at 

6*0.3 

:  Failure* 

Observed 
Fa il ure 
Ftode 

Arching  \ 

j  =  l  .0 

6*0-5 

6=0.3 

u*0.25 

3  (1*1.0 

(,-0.5 

p=0.25 

700 

20 

1 

106 

460 

53 

106 

176 

- 

0.11 

55 

105 

175 

- 

s.s.s 

700 

20 

2 

106 

460 

53 

106 

- 

212 

0.11 

385 

425 

- 

465 

A.A.A 

700 

20 

3 

110 

480 

55 

110 

185 

- 

0.11 

440 

470 

515 

- 

A.  A, A 

TOO 

20 

4 

110 

480 

- 

110 

193 

- 

0.11 

- 

540 

650 

- 

-,A,A 

750 

20 

6 

120 

560 

60 

120 

- 

240 

0.11 

650 

725 

- 

BOO 

A.A.A 

700 

40 

2 

230 

500 

115 

230 

- 

460 

0.23 

300 

315 

- 

415 

A.A.A 

700 

50 

4 

290 

420 

- 

290 

- 

- 

0.29 

- 

575 

- 

- 

-.A.¬ 

700 

50 

2 

285 

500 

143 

285 

- 

570 

0.29 

475 

560 

- 

600 

A.A, A 

600 

50 

2 

230 

345 

115 

230 

- 

- 

0.33 

300 

350 

- 

- 

A.A.- 

600 

40 

4 

196 

360 

- 

196 

- 

- 

0.25 

- 

300 

- 

- 

A.¬ 

500 

50 

2 

180 

225 

90 

180 

- 

- 

0.40 

200 

225 

- 

- 

A.A, - 

450 

25 

4 

85 

190 

43 

85 

- 

170 

0.22 

150 

175 

- 

200 

A.A.A 

800 

100 

2 

610 

570 

305 

610 

- 

1220 

0.50 

325 

625 

- 

1225 

S.S.S 

800 

100 

1 

610 

570 

305 

600 

. 

1220 

0.50 

305 

615 

0 

1210 

s.s.s 

Notes:  1  0  Is  the  true  span,  t  Is  block  thickness,  b  is  number  of  blocks  in  lower  row  of  strata  and  W  is  total  weight 

of  blocks  In  lower  row.  All  dimensions  are  consistent  computer  units. 

2  Predicted  side  loads  (H):  Arching  failure  load  from  equation  4.9,  Slfding  failure  Toads,  for  various  values 
of  friction  coefficient  u  from  equation  4.6. 

3  Critical  friction  angle  delineating  sliding  and  arching,  equation  4.10. 

4  load  (H)  observed  at  failure  in  Distinct  Element  model  for  several  tests  of  same  geometry. 

5  Observed  mode  of  failure  (S  -  sliding,  A  -  arching)  for  each  of  the  tests  of  same  geometry.  Columns 

correspond  to  high,  medium  and  low  value  of  joint  Friction  coefficient.  indicate.,  no  test  data  for  that 

value  of  y. 
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boundary  conditions  is  applied  and  the  program  allowed  to  run  until 
it  is  determined  that  the  geometry  is  stable.  The  boundary 
conditions  are  then  incrementally  modified  and  again  the  program  is 
allowed  to  run.  This  iteration  is  then  continued  until  failure 
occurs.  Thus,  each  data  point  on  Figure  4.26  represents  a  limiting 
condition  deduced  by  a  minimum  of  four  or  five  computer  runs. 

The  problem  of  determining  equilibrium  conditions  is  discussed 
further  in  Appendix  B. 

Tabulated  in  Table  4.2  are  predicted  side  loads  for  stability 
obtained  by  Equation  4.9  for  arching  conditions  and  by  Equation  4.6 
for  sliding  conditions.  The  observed  loads  at  failure  are  also 
tabulated  and  comparison  indicates  a  general  divergence  from  the 
predicted  values.  Nine  of  the  tests  developed  sliding  failure  modes 
and  are  indicated  by  a  circular  symbol  in  the  plot  of  Figure  4.26; 
the  remainder  of  the  tests  developed  full  arching  failure  modes  and 
the  data  points  are  seen  to  follow  the  general  trend  of  the  linear 
arch  model  as  represented  on  Figure  4.26  by  the  square  symbols. 

In  those  tests  where  failure  was  by  frictional  slippage,  the 
side  loads  were  typically  within  2%  of  the  value  predicted  by 
Equation  4.6;  the  indication  being  that  in  those  cases  where  full 
arching  does  not  develop.  Equation  4.6  may  be  used  to  assess  the 
stability  of  a  mine  roof.  For  those  tests  where  stability  is 
dependent  upon  full  development  of  the  roof  arch  however,  the 
error  relative  to  the  predicted  side  loads  ranges  from  about  5%  to 
40%  with  the  average  error  equal  to  approximately  17%.  The  only 
consistent  trends  in  the  errors  are  that  the  error  increases  with 
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the  number  of  blocks  in  the  lower  row  and  that  for  a  fixed  geometry 
the  error  either  increases  or  moves  from  negative  to  positive  as 
the  friction  angle  increases. 

Analysis  of  the  linear  arch,  single  row  models  led  to  the 
calculation  of  a  critical  friction  angle  (Equation  4.10)  that  was 
found  to  predict  accurately  the  dividing  line  between  failure  by 
arching  and  failure  by  sliding  along  the  abutment  joints.  The 
tangent  of  the  critical  friction  angle  for  each  of  the  multilayered 
block  tests  is  also  tabulated  in  Table  4.2;  several  instances  can 
be  found  in  the  table  which  illustrate  discrepancies  between  actual 
and  predicted  failure  modes  with  arching  failure  modes  developing 
in  several  instances  where  the  critical  friction  angle  concept 
predicted  a  sliding  failure  mode. 

Examination  of  the  data  indicates  that  failure  by  full  develop¬ 
ment  of  the  roof  arch  is  more  likely  to  occur  than  failure  by  sliding 
along  the  abutment  joints.  Exceptions  to  this  observation  were 
found  only  in  those  i:  _ jances  where  the  development  of  the  arch 
was  somehow  constrained.  Specific  conditions  that  lead  to  failure 
by  slippage  were  the  expected  case  where  the  main  roof  was  monolithic 
and  arching  could  not  develop,  and  cases  where  the  block  thickness 
was  relatively  large  and  the  main  roof  comprised  only  two  blocks. 

In  these  instances  the  horizontal  load  at  failure  could  be  predicted 
accurately  in  terms  of  the  block  weights  by  the  use  of  Equation  4.3: 


H  =  1/2  W  cot  cp 


4.3 
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The  most  noticeable  departure  from  the  observed  behavior  of  the 
single  layer  linear  arch  models  was  concerned  with  contact  force 
distribution  along  the  lower  row  of  blocks.  In  the  single  layer 
models,  failure  always  initiated  as  the  central  contact  along  the 
lower  face  opened;  as  noted  earlier,  this  was  the  expected  behavior 
since  the  deflection  of  the  blocks  reduced  the  moment  arm  of  the 
horizontal  stabilizing  force  resulting  in  increasingly  unstable 
conditions.  This  phenomonon  is,  however,  not  indicative  of  the 
behavior  of  the  multilayer  models. 

The  conditions  preceeding  failure  in  the  multilayer  models  are 
characterized  by  two  common  features.  First,  loss  of  force 
transmittal  across  the  lower  contact  of  the  midspan  joint  is  not 
indicative  of  failure.  Frequently,  significant  horizontal  force 
reduction  after  the  joint  opens  is  required  before  failure  occurs. 

The  second  general  behavior  pattern  that  was  recognized  concerns  the 
distribution  of  contact  forces  in  the  immediate  roof.  Figure  4.27 
presents  a  typical  multilayer  model  and  a  section  of  its  contact 
force  distribution.  The  blocks  are  in  equilibrium  but  a  reduction 
in  the  horizontal  thrust  of  approximately  10%  would  lead  to  failure; 
this  is  a  typical  force  distribution  of  a  multilayer  model  at  stress 
conditions  slightly  greater  than  those  at  which  failure  occurs. 

Three  characteristics  of  the  force  distribution  in  multilayer  models 
have  been  noted  in  all  models  tested  and  are  indicated  in  Figure  4.27 
by  the  letters  A,  B,  and  C.  The  characteristics  are: 

A)  absence  of  force  transmittal  across  the  lower  contact 
of  the  mid  span  joint 


•  ♦  • 
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B)  minimal  vertical  transmittal  within  the  suspended 
zone,  especially  to  the  lower  row  of  blocks 

C)  the  development  of  an  additional  contact  force  where 
the  blocks  adjacent  to  the  abutment  rotate  into  the 
next  upward  level  of  blocks 

The  second  characteristic  is  to  be  expected  in  light  of  the 
model;  the  corbelling  effect  of  the  blocks  outside  of  the  suspended 
zone  acts  to  lessen  the  span  over  which  the  next  row  of  blocks  must 
be  supported.  In  this  particular  case,  the  span  is  decreased  by 
25",  the  weight  to  be  supported  is  decreased  by  25%  and  the  required 
horizontal  force  to  just  maintain  equilibrium  is  45%  of  that  which 
is  actually  being  applied.  This  simple  calculation  neglects  the 
vertical  force  transmittal  which  is  occuring  to  the  second  row  of 
blocks,  but  the  fact  that  the  thrust  applied  to  the  second  row  of 
blocks  is  almost  twice  that  required  for  stability  indicates  why 
the  deflection  of  the  second  row  is  small  compared  to  that  of  the 
lower  row  and  thus  why  no  vertical  force  transmittal  occurs  to 
the  lower  row. 

The  other  two  observations,  A  and  C,  are  closely  related  and 
provide  a  reasonable  explanation  as  to  why  the  behavior  of  the 
multilayer  models  depart  from  the  linear  arch  model.  Figure  4.28 
is  a  schematic  representation  of  the  two  blocks  on  the  left  hand 
side  of  the  lower  row  of  blocks  in  Figure  4.27(a)  based  on  the 
contact  force  distribution  of  Figure  4.27(b).  The  linear  arch  model 
is  based  upon  the  contact  force  distribution  illustrated  in  Figure 
4.22;  comparison  of  these  two  figures  indicates  that  the  model  used 


I V  -  64 


for  the  development  of  the  linear  arch  equation  is  not  valid  for 
the  multilayer  cases.  As  the  lower  row  of  the  multilayer  model 
deflects  some  rotation  of  the  blocks  occurs  and  leads  to  the 
development  of  a  shearing  resistance  along  the  top  of  the  block. 

The  same  phenomenon  was  observed  in  the  Goodman  and  Bray  Limit 
Equilibrium  Model  of  toppling  behavior  of  rock  slopes  (section  3.6). 
In  the  Goodman  and  Bray  model  the  corresponding  force  was  taken  as 
zero;  although  this  may  be  valid  for  the  low  degree  of  confinement 
that  exists  in  near  surface  problems,  the  stress  conditions 
surrounding  an  underground  excavation  dictate  an  elastic  interaction 
of  the  blocks.  Two  blocks  cannot  just  "sit"  next  to  each  other 
but  must  act  to  transmit  relatively  high  forces  across  their 
boundaries.  Thus,  as  the  block  attempts  to  rotate  it  is  resisted 
not  only  by  the  mid  span  contact  force  but  by  an  additional 
shearing  resistance  as  well .  This  observation  explains  the  reason 
for  the  inability  of  the  linear  arch  model  to  predict  accurately 
the  horizontal  load  at  failure:  the  linear  arch  model  simply  does 
not  consider  all  of  the  forces  present.  The  presence  of  an 
additional  shearing  resistance  also  explains  how  stable  conditions 
can  be  maintained  even  though  the  lower  contact  of  the  mid  span 
joint  is  broken.  In  section  4.3.5  it  was  noted  that  in  the  linear 
arch  model,  once  this  contact  opened,  the  governing  equation 
dictated  that  failure  must  occur.  The  presence  of  the  additional 
force  acting  on  the  block  tends  to  maintain  equilibrium  in  a  manner 
not  accounted  for  by  the  linear  arch  model. 

Unlike  the  linear  arch  model,  the  force  distribution  presented 
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in  Figure  4.28  is  statically  indeterminate.  To  develop  an  equation 
relating  span,  block  thickness,  joint  spacing,  block  weights  and 
friction  coefficient  would  require  that  two  assumptions  be  made 
concerning  the  forces.  The  logical  assumptions  would  be  to  assume 
the  development  of  full  frictional  resistance  of  the  two  contacts 
experiencing  shear.  However,  in  the  majority  of  tests  run,  full 
frictional  resistance  was  not  seen  to  develop  at  either  contact. 
Rather,  the  Distinct  Element  method  can  be  used  to  study  each 
model  on  an  individual  basis  and  develop  relationships  not  subject 
to  arbitrary  assumptions  regarding  the  force  distributions. 


Figure  4.28  Force  distribution  observed  during  arching  in 
multilayer  models. 


IV-66 


4 . 6  Use  of  Results  in  Design 

The  results  from  the  previous  Distinct  Element  runs  can  be 
expressed  in  a  way  that  may  be  useful  for  design  pu  poses.  The 
two  examples  presented  below  utilize  the  data  of  Table  4.2  to  derive 
empirical  relationship  between  parameters.  These  relationships  are 
characterized  by  errors  in  the  order  of  4%  rather  than  the  40%  error 
experienced  when  using  linear  arch  theory  to  predict  the  horizontal 
thrust. 

The  first  example  derives  a  relationship  between  the  horizontal 
force  required  for  stability,  the  number  of  blocks  in  the  bottom  row, 
(a  factor  which  is  analogous  to  joint  spacing)  and  the  friction 
angle  of  the  joints,  in  models  similar  to  those  shown  in  Figure  4.3. 
The  excavation  width  and  the  block  thickness  are  constant  in  this 
analysis.  The  data  points,  which  represent  the  failure  conditions 
for  11  test  models,  and  the  associated  linear  trends  are  plotted  in 
Figure  4.29.  The  linear  trends  in  the  figure  are  members  of  a 
family  of  curves  represented  by  the  equation 

H  =  314.3  -  59.5  tan4>  +  (87.3  -  19.3  tan$)  b  4.11 

with  all  dimensions  expressed  in  consistent  computer  units.  Also 
included  in  the  figure  is  a  horizontal  dashed  line  which  represents 
the  value  of  horizontal  force  necessary  to  maintain  roof  stability 
as  calculated  by  linear  arch  theory.  The  data  points  corresponding 
to  a  monolithic  lower  roof  (b  =  1)  are  included  on  the  plot  and  are 
seen  to  deviate  from  the  trend  of  Equation  4.11;  the  frictional 
resistance  relationship  (Equation  4.6)  predicts  these  values 


■  4.?Q  Linear  relationship  between  horizontal  force,  number 
of  blocks  in  the  lower  row  and  joint  friction  angle 
(constant  span  and  block  thickness). 
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correctly . 

For  a  constant  span  and  block  thickness,  linear  arch  theory 
predicts  that  the  value  of  horizontal  thrust  should  be  a  constant 
and  does  not  consider  the  effect  of  friction.  The  actual  data 
indicate  that  a  linear  relationship  exists  between  horizontal  thrust, 
joint  spacing  in  the  roof  and  friction  angle  of  the  joints. 

The  data  values  indicate  that  the  side  force  required  for 
stability  increases  both  as  the  joint  spacing  decreases  and  as  the 
friction  coefficient  of  the  joints  decreases. 

The  second  example  illustrates  a  relationship  between  the 
horizontal  force  required  for  equilibrium,  the  joint  friction 
coefficient  and  the  excavation  span  for  models  of  the  type 
illustrated  in  Figure  4.3.  In  this  example  the  models  have  a 
constant  block  thickness  and  are  characterized  by  a  single  midspan 
joint.  The  linear  nature  of  the  relationship  can  be  observed  in 
Figure  4.30.  The  linear  trends  plotted  in  the  figure  are  members 
of  a  family  of  curves  represented  by  the  equation: 

H  =  190  tan*  -  540  +  (1.59  -  0.48  tan*)  0  4.12 

and  fit  the  data  with  a  maximum  error  of  approximately  2%.  All 
dimension'd  quantities  are  in  consistent  computer  units. 

The  dashed  line  included  in  the  figure  is  the  value  of  side  load 
predicted  by  linear  arch  theory.  The  required  horizontal  force  for 
stability  is  seen  to  increase  with  span  as  predicted  by  linear  arch 
theory  but  the  linear  arch  theory  does  not  take  account  of  the  fact 
that  at!  increase  in  the  joint  friction  angle  reduces  the  horizontal 
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A  y  =  0.25 
•  v  =  0.50 
53  M  =  0.99 


Figure  4.30  Linear  relationship  between  span,  horizontal  force 
and  joint  friction  angle  (constant  block  thickness 
and  one  midspan  joint;  all  dimensions  in  computer  units). 
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required  for  stability.  This  reduction  is  due  primarily  to 
dditional  shearing  resistance  provided  by  the  layer  interac- 


4 . 7  Summary 
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The  stability  of  excavations  in  jointed  rock  was  seen  to  be 
governed  by  mechanisms  of  stress  transfer  which  resulted  in  a 
zone  of  relatively  destressed  material  above  the  excavation. 

This  destressed  zone  was  observed  in  the  analyses  of  openings 
in  elastic  material  as  well  in  the  analyses  of  openings  in 
jointed  masses,  but  the  fundamental  behavior  was  different. 

The  elastic  analyses  indicated  that  a  ground  arch  formed  and 
transfered  the  overburden  load  to  the  abutments,  but  that  the 
destressed  zone  was  simply  "hanging"  on  the  rock  comprising  the 
arch  and  thus  experiencing  tensile  stresses.  The  analyses 
of  the  behavior  of  the  jointed  masses  indicated  the  formation 
of  the  ground  arch  as  in  the  elastic  case,  but  suggested  that 
the  stability  of  an  excavation  in  jointed  media  was  attained 
through  the  development  of  a  second  arch,  the  roof  arch,  in 
the  strata  immediately  above  the  excavation.  The  roof  arch 
was  observed  in  all  stable  geometric  configurations  except  for 
those  cases  involving  high  horizontal  stresses  and  those  cases 
involving  large  block  thicknesses.  In  the  first  case  the  high 
horizontal  stresses  prevented  the  block  rotations  necessary  to 
form  the  arches  and  stability  was  maintained  by  frictional  sus¬ 
pension  of  the  mass  along  the  vertical  joints.  In  the  second 
case,  the  block  thickness,  relative  to  the  excavation  span, 
reached  a  point  at  which  the  arch  development  was  constrained 
and  failure  of  the  mass  was  by  sliding  along  the  joints.  It 
was  found  that  the  transition  between  arching  and  sliding 
behavior  could  be  predicted  accurately. 


The  Distinct  Element  obtained  solutions  for  single  layer,  self 
loaded,  jointed  beams  were  compared  to  a  linear  arch  theory 
neglecting  the  compressive  strength  of  the  rock  and  the  lateral 
stiffness  of  the  abutments;  agreement  of  the  data  with  theory  was 
quite  good.  When  the  single  layer,  linear  arch  theory  was  compared 
to  multiple  layered  models,  however,  agreement  of  the  data  and 
theory  was  poor.  The  discrepancy  was  seen  to  be  due  to  layer  inter¬ 
actions,  not  accounted  for  in  the  single  layer  model,  acting  in  a 
manner  that  increased  the  horizontal  thrust  on  the  abutments. 

A  Limit  Equilibrium  solution  for  the  observed  contact  force 
distribution  was  calculated,  but  discarded  since  the  contact  vectors 
were  seldom  observed  to  be  at  fully  developed  frictional  resistance. 
Instead,  the  data  was  examined  in  order  that  the  significant 
parameters  and  the  relationships  between  them  could  be  isolated. 

Two  main  conclusions  could  be  drawn  from  the  data.  First,  there  is 
a  linear  relationship  between  the  span  and  the  horizontal  thrust 
required  for  stability  of  the  mass.  However,  in  contrast  to  linear 
arch  theory,  the  models  examined  by  the  Distinct  Element  method 
indicated  that  this  relationship  involved  the  joint  friction  coef¬ 
ficient.  This  was  observed  to  be  due  to  interactions  between  the 
lower  two  layers  and  not  a  resultant  of  slipping  along  the  vertical 
joints  at  the  abutments. 

The  second  identified  relationship  indicated  that  the  horizontal 
thrust  was  a  function  of  the  joint  spacing,  expressed  as  the  number 
of  blocks  in  the  lower  row  of  strata,  and  the  joint  friction 
coefficient.  The  significance  of  this  observation  lies  in  the  fact 
that  linear  arch  theory  does  not  account  for  an  effect  due  to  joint 


spacing.  The  data  indicate  that  as  the  number  of  blocks  in  the 
lower  row  of  strata  increases  from  two  to  six,  the  horizontal  stress 
required  for  stability  almost  doubles;  linear  arch  theory,  on  the 
other  hand,  predicts  that  this  horizontal  stress  should  be  a 
constant  value. 

To  keep  a  proper  perspective,  it  must  be  noted  that  the 
analyses  described  in  this  chapter  were  performed  with  a  restricted 
behavior  model  possessing  infinite  strength  and  regular  jointing. 
More  sophisticated  linear  arch  theories  account  for  load  transfer 
between  layers  and  the  compressive  strength  of  the  material.  The 
real  situation  in  bedded  roofs  involves  crushing  of  the  rock  which 
can  change  the  length  of  the  moment  arm  used  to  calculate  the 
horizontal  thrust  in  the  linear  arch  theory.  It  must  be  concluded 
that  it  may  be  invalid  to  criticize  linear  arch  theory  or  the  basis 
of  the  analyses  just  described.  The  analyses  do  indicate,  however, 
that  mechanisms  act  in  jointed  rock  that  perhaps  should  be  imple¬ 
mented  in  a  comprehensive  linear  arch  theory. 
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CHAPTER  V 

AN  ANALYSIS  OF  SUPPORT  REQUIREMENTS  OF  EXCAVATIONS 

IN  JOINTED  ROCK  MASSES 

5.1  Introduction 

In  a  historical  review  of  tunnel  construction,  Szechy  (1970) 
states  that  the  oldest  known  tunnel  other  than  those  associated 
with  mines  is,  according  to  present  knowledge,  over  4000  years  old. 
This  tunnel  was  constructed  in  Babalonia  during  the  reign  of  Queen 
Semi  rami s  to  underpass  the  River  Euphrates.  The  length  of  this 
tunnel  was  over  1  km  and  it  had  a  cross-section  of  3.6  m  by  4.5  m. 
Although  built  by  cut  and  cover  methods,  elements  of  the  structure 
demonstrated  (viz.  a  vaulted  arch  for  the  roof)  that  the  Babylonians 
possessed  considerable  skill  in  tunnel  construction,  most  likely 
gained  from  experience  in  previous  tunneling  ventures.  To  fully 
emphasize  the  significance  of  this  undertaking,  Szechy  notes  that 
it  wasn't  until  1843  that  the  next  subaqueous  tunnel,  that  crossing 
the  River  Thames  in  London,  was  opened,  almost  4000  years  later. 

Significant  increases  in  the  magnitude  of  the  scale  of  projects 
typically  undertaken  in  underground  excavation  have  not  been 
accompanied  by,  or  for  that  matter,  preceeded  by  analytical  techniques 
capable  of  explaining  the  complex  behavior  of  the  structural  system 
comprising  the  rock  mass  and  the  support  system.  The  design  of 
tunnel  or  excavation  support  systems  are  routinely  guided  by 
empirical  and  observational  rock  load  prediction  schemes.  It  is 
universally  acknowledged  that  the  use  of  these  schemes  results  in 
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an  overdesign,  but  the  majority  of  research  undertaken  today  seems 
not  to  be  directed  toward  understanding  the  mechanisms  responsible 
for  the  behavior  of  an  excavation  but  toward  somehow  strengthening 
the  position  of  the  empirical  methods  through  the  acquisition  of 
additional  data.  This  approach  has  helped  to  identify  the  parameters 
to  which  support  design  is  most  sensitive,  but  the  fact  that 
excavation  support  design  is  highly  site  dependent  does  not  obviate 
the  need  for  rational  methods  for  the  prediction  of  support  pressures. 

This  chapter  presents  the  results  of  analyses  of  jointed  rock 
masses  which  utilize  the  Distinct  Element  method  to  characterize 
the  interaction  of  a  jointed  rock  mass  with  a  support  system.  The 
vehicle  chosen  to  quantitatively  express  this  interaction  is  a 
ground  reaction  curve.  A  ground  reaction  curve  is  simply  a  plot  of 
the  support  force  necessary  to  maintain  the  stability  of  a  rock  mass 
as  a  function  of  displacement  of  the  rock  mass.  The  utility  of  the 
ground  reaction  curve  in  support  design  is  that  it  typically  yields 
information  about  the  optimum  time  of  support  emplacement  as  well 
as  the  magnitude  of  the  force  the  supports  must  resist. 

Previously,  ground  reaction  curves  have  only  been  calculated 
by  continuum  based  methods;  the  rock  was  assumed  to  be  broken  but 
the  representation  of  the  behavior  was  by  a  plastic  or  elastic- 
plastic  constitutive  relationship. 

The  Distinct  Element  formulation  provides  the  research  tool 
necessary  to  investigate  load-deflection  relationships  in  a  medium 
where  the  deformation  is  controlled  solely  by  the  jointing.  The 
ground  reaction  curves  presented  in  this  chapter  indicate  a 
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relationship  between  required  support  force  and  the  geometric 
parameters  defined  by  the  excavation  dimensions  and  the  joint 
spacings.  This  data  was  also  compared  to  predictions  made  by  several 
of  the  empirical  methods  in  an  attempt  to  determine  if  any  correla- 

i 

tion  could  be  found.  i 


I 
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5 . 2  The  Estimation  of  Rock  loads  for  Support  Design 
5.2.1  The  con<~ 9£t  ojf  a  ground  reaction  curve 

As  an  introduction  to  the  discussion  of  the  various  methods 
commonly  in  use  to  design  reinforcement  schemes  in  tunnels  it  is 
prudent  to  discuss  a  theoretical  concept  which  provides  a  means  to 
quantitatively  describe  the  behavior  of  the  rock  mass  as  it  is 
disturbed  by  an  excavation.  This  concept  is  concerned  with  the 
interaction  of  the  material  surrounding  the  excavation  and  the 
support  system  emplaced  to  ensure  stability.  The  behavior  of  the 
material  is  described  by  a  ground  reaction  curve  relating  the 
force  required  to  stabilize  the  mass  to  the  deformation  of  the 
edge  of  the  excavation.  As  an  illustration  of  the  concept,  an 
example  (Deere  et  al . ,  1969)  describing  a  ground  reaction  curve  for 
a  soil  mass  is  presented. 

The  basis  for  establishing  the  stress  for  which  a  tunnel 
lining  should  be  designed  is  illustrated  in  Figure  5.1  where  the 
average  radial  stress  on  a  circular  tunnel  lining  is  plotted  as  a 
function  of  the  average  inward  radial  deformation  of  the  tunnel 
wall.  The  point  A  illustrated  in  the  figure  represents  the  average 
radial  stress  befor  excavation  occurs. 

If  the  radius  of  the  tunnel  lining  were  steadily  decreased,  the 
load  on  the  tunnel  lining  would  decrease  in  accordance  with  a 
relationship  describing  the  stress-strain-time  characteristics  of 
the  soil.  If  the  soil  v/ere  elastic  the  relationship  would  be 
linear  as  shown  in  the  figure  by  the  dashed  line  AE;  for  the  more 
likely  case  that  the  material  is  inelastic,  the  relationship  could 
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resemble  the  curve  AD.  This  relationship  is  termed  the  ground 
reaction  curve.  The  form  of  the  ground  reaction  curve  cannot  be 
calculated  exactly  but  may  be  approximated  in  several  instances  of 
practical  importance  on  the  basis  of  field  observations  coupled 
with  theoretical  investigations. 

As  the  tunnel  excavation  approaches  a  given  cross-section,  the 
soil  deforms  radially  toward  the  tunnel  and  axially  toward  the 
working  face.  By  the  time  the  working  face  has  reached  the  cross- 
section  an  average  radial  deformation,  of  magnitude  u^  has  already 
occurred.  If  the  tunnel  lining  was  placed  in  contact  with  the 
soil  at  this  point  in  time  and  was  capable  of  preventing  any 
further  deformation  of  the  soil  mass,  the  average  stress  in  the 
lining  would  be  B  as  indicated  in  the  figure.  If  further  inward 
deformation  of  the  tunnel  walls  occurred  before  the  lining  was 
placed,  say  of  magnitude  u^  illustrated  in  the  figure,  the 
radial  stress  would  be  C. 

In  reality,  the  tunnel  lining  will  itself  undergo  a  radial 
deformation  of  small  magnitude  before  stability  is  obtained.  The 
effect  of  deflection  of  the  lining  may  be  estimated  by  a  curve  of 
its  force-displacement  behavior,  which  can  be  called  a  support 
reaction  curve,  such  as  the  curve  F  in  the  figure.  The  final  load 
on  the  tunnel  lining  is  given  by  the  intersection  of  the  ground 
reaction  curve  and  the  support  reaction  curve  taking  cognizance  of 
the  fact  that  a  certain  amount  of  deformation  of  the  tunnel  walls 
has  occurred  before  the  installation  of  the  tunnel  lining.  The 


final  stress  in  the  tunnel  lining  is  thus  C  and  the  deflection 


of  the  lining  is  uf.  Note  that  the  deflection  of  the  tunnel  wal 
is  actually  given  by  the  sum  u-j  +  u^  +  u  ^ . 


figure  5.1  Interaction  of  soil  and  tunnel  lining  (after  Deere 
et  al. ,  1969). 


5.2.2  Tunnel  support  design  concepts 
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The  dimensioning  of  tunnel  supports,  as  with  any  structure, 
requires  a  fairly  accurate  knowledge  of  the  magnitude  of  the  loads 
to  be  resisted  by  the  supports.  From  an  economics  viewpoint,  it 
is  preferable  to  be  able  to  estimate  support  requirements  on  the 
basis  of  exploratory  drilling  footage  but  it  is  certainly 
acceptable  to  be  able  to  modify  the  support  design  based  upon 
observations  at  the  working  face.  The  fact  that  tunnel  designers 
have  been  unsuccessful  in  using  the  first  method  probably  explains 
the  present  trend  toward  instrumentation  of  underground  construc¬ 
tion. 

This  is  not  meant  to  imply  that  there  has  been  a  lack  of 
proposed  analytic  models  to  explain  observed  rock  pressure  and 
displacement;  rather  the  major  problem  with  the  analytic  models 
is  that  they  lack  portability.  A  truly  general  design  method 
would  have  to  include  all  possible  factors  such  as,  mass 
condition,  material  type,  construction  method  and  type  of 
reinforcement.  Since  the  full  implications  of  the  many  factors 
involved,  and  particularly  their  interactions,  are  not  presently 
understood,  analytical  techniques  are  typically  confined  to 
examination  of  a  single  one  of  the  factors.  This  is  precisely 
why  there  are  no  comprehensive  tunnel  design-load  specifications 
anywhere  in  the  world  and  why  they  are  compiled  for  each  particular 
project  on  the  basis  of  prevalent  conditions. 

The  particular  factor  which  is  of  interest  in  this  study  is 
the  rock  load  for  which  the  tunnel  supports  should  be  designed. 

The  methods  commonly  in  use  at  the  present  time  to  determine  the 
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rock  pressure  in  the  vicinity  of  underground  excavations  typically 
possess  the  characteristics  of  one  of  three  categories:  approximate 
methods  based  upon  the  extent  of  upbreak;  theories  based  upon 
theoretical  stress  conditions  in  the  rock  mass;  and  theories  based 
upon  displacement  and  equilibrium  assumptions.  The  methods  which 
directly  incorporate  the  jointing  of  the  rock  mass  tend  to  be 
empirical  rather  than  analytical  and  typically  are  based  upon 
or  related  to  the  amount  of  upbreak  above  the  excavation.  The 
following  brief  survey  of  tunnel  support  design  methods  for  jointed 
masses  thus  emphasizes  those  methods  based  upon  the  extent  of 
upbreak.  Several  design  concepts  which  do  not  directly  include 
the  jointing  of  the  mass  are  also  incorporated  in  the  survey 
because  they  introduce  concepts  which  are  pertinent  to  the  ensuing 
discussion. 

The  origin  of  the  practice  of  dimensioning  tunnel  supports 
to  resist  a  given  amount  of  upbreak  is  usually  attributed  to 
Bierbaumer  (1913),  whose  observations  were  based  upon  the  failure 
of  timber  supports.  Table  5.1  lists  the  values  of  roof  pressure 
to  be  expected  in  various  types  of  material.  This  table  is 
frequently  attributed  to  Bendel  (1948)  who  actually  attributes  it 
to  "others".  The  most  significant  aspect  of  Bierbaumer 's  observed 
rock  pressure  values  is  that  they  are  independent  of  width  of  the 
excavation. 

A  more  widely  known  method  of  estimating  support  loads  based 
upon  expected  upbreak  is  that  of  Terzaghi  (1946).  Terzaghi  based 
his  estimates  of  the  intensity  of  rock  loads  on  the  failure  of 


Table  5.1  Observed  support  loads:  Bierbaumer 


Roof  Pressure 

P„  (t/m2) 

Temporary  timber  support 

Rock  Material 

At  out¬ 

After 

comple¬ 

Mode 

Remark 

tion  of 

of 

Peoree 

break 

drift 

execution 

of  stressing 

Rock,  more  or  less  blocky 

0 

8-12 

Skeleton 

0  to  in¬ 

Loosening  pressure  small 

lagging, 

light 

significant 

Very  seamy  rock,  cemented 
conglomerate,  soft  rock, 
with  small  Overburden 
height 

10 

30-35 

Skeleton 
lagging, 
sol  id 

Small 

Loosening  pressure  Increasing  at 
the  moment  of  outbreak  not 
perceivable 

Heavily  fractured  rock 
(roof  breakdown),  rolling 
gravel  and  conglomerate 

15-25 

30-40 

Ti9ht, 

strong 

lagging 

Mean 

Bigger  pressures  perceivable 
simultaneously  with  outbreak. 
Ensuing  of  equilibrium  condition. 

very  prolongated 

Loose  rock  under  heavy 
pressure  (eventually  in 
saturated  condition). 

25-35 

40-60 

Very  tight, 
solid 

Con¬ 

siderable 

Stabll Ization  of  pressure 
conditions  very  difficult 

Bigger  overburden  height 

Loose  and  soft  (pseudo¬ 
solid)  rock  under  heavy 
pressure.  Very  big 
overburden  height 

40-60 

100-150 

Very  tight, 
lagging  and 
strong 
hard-wood 

Going  up 
to 

rupture 

Stabilization  possible  only  after 
the  completion  of  very  protracted 
deformations  (months  even  years; 
Karawanken  tunnel) 

si  11 -beams 

Table 

5.2 

Rock 

load  guidelines: 

Terzaghi 

Rock 

load  H 

in  feet  of  rock  on  roof  of  support  in 

tunnel 

with  width  B  (ft)  and  height  (ft)  at  depth  of  more  than  1.5  (B+H^) 


Rock  Condition 

Rock  Load  in  feet 

Remarks 

i. 

Hard  and  Intact 

zero 

light  lining,  required  only  if  spalling 

2. 

Hard  stratified  or 
schistose 

0  to  0.58 

light  support. 

3. 

Massive,  moderately 
Jointed 

0  to  0.258 

Load  may  change  erratically  from  point  to 
point. 

4. 

Moderately  blocky 
and  seamy 

0.258  to  0.35  (B*Ht) 

No  side  pressure. 

5. 

Very  blocky  and 
seamy 

(0.35  to  1.10)  (B*Ht) 

Little  or  no  side  pressure. 

6. 

Completely  crushed 
but  chemically 

Intact 

1.10  (B*Ht) 

Considerable  side  pressure.  Softening  effect 
of  seepage  towards  bottom  of  tunnel  requires 
either  continuous  support  for  lower  ends  of 
ribs  or  circular  ribs. 

7. 

Squeezing  rock, 
moderate  depth 

(1.10  to  2.10)  (B»Ht) 

Heavy  side  pressure.  Invert  struts  required. 
Circular  ribs  are  recommended. 

8. 

Squeezing  rock, 
great  depth 

(2.10  to  4.50)  (B*Ht) 

9.  Swelling  rocV 


lip  ?SO  ft.  irrespec¬ 
tive  of  v.ilue  of  ( ) 


Circular  ribs  required.  In  extreme  cases  use 
yleldlrq  support. 
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wooden  blocks  of  known  strength  inserted  between  the  individual 
members  of  timber  sets.  The  Terzaghi  load  estimates  are  summarized 
in  Table  5.2.  Note  that  the  magnitude  of  the  loads  are  dependent 
upon  the  tunnel  dimensions  as  well  as  the  presence  or  absence  of 
groundwater. 

St  ini  (1950)  also  presented  estimates  of  the  rock  load  due 
to  upbreak  which  are  presented  in  Table  5.3.  Like  Terzaghi, 

St ini ' s  loads  are  dependent  upon  tunnel  geometry,  but  whereas 
Terzaghi  described  the  time  lag  between  excavation  and  final  load 
(bridge-action  period)  as  typically  of  the  same  order  of  magnitude 
as  the  excavation  cycle  time,  Stini  noted  that  much  longer  time 
periods  elapsed  before  full  loads  came  on  the  supports. 

Modifications  of  Terzaghi' s  basic  classification  scheme  are 
frequently  found  in  the  literature  and  attest  to  its  one  time 
high  degree  of  acceptance.  For  example,  a  report  by  the  California 
Department  of  Water  Resources  (ENR,  1959)  details  cost  data  for 
99  tunnels  designed  by  a  slightly  modified  version  of  Terzaghi 's 
basic  design  loads. 

A  major  effort  to  add  a  quantifying  descriptor  to  Terzaghi's 
rock  load  classification  is  due  to  Deere  et  al.  (1969)  and  Deere 
et  al .  (1970).  The  pertinent  data  from  Deere  et  al.  (1969)  is 
summarized  in  Table  5.3.  An  easily  measured  field  index  properly, 
R.Q.D.  is  correlated  to  both  Terzaghi's  and  Stini 's  classification 
scheme.  This  correlation  provided  the  means  to  "objectively" 
select  the  proper  load  class. 


TEAZAGHKlOAi)  ROCK  LORD  Hp  REMARKS  STIN1  11950)  rock  L0AB  H  REMARKS 

Ct-ASS  INITIAL  FINAL  CLASS  METERS 


Table  5.3  Rock  Loads  and  Classification 
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The  effect  of  jointing  and  faulting  on  tunnel  support  loads 
was  emphasized  by  Cording  et  al .  (1971)  and  Cording  and  Deere 
(1972).  They  noted  chat  triangular  wedges  could  form  above  the 
crown  due  to  adverse  joint  orientation  and  attempted  to  calculate 
the  required  support  pressure  as  a  function  of  shearing  resistance 
along  the  sides  of  the  wedge.  Later  work  by  Cording  and  Mahar 
(1974)  noted  that  the  kinematics  of  the  situation  dictated  that 
at  least  one  surface  of  the  wedge  should  separate  from  the  rock 
mass.  The  equivalent  rock  loads  they  presented,  which  are 
summarized  in  Table  5.4,  do  not  assume  any  shearing  resistance  in 
the  mass  but  are  simply  the  pressure  due  to  the  total  weight  of 
the  wedge. 

The  practice  of  designing  tunnel  supports  on  the  basis  of  the 
amount  of  upbreak  assumes  that  the  rock  has  no  inherent  strength 
and  that  there  is  no  real  interaction  between  the  support  and 
the  failing  mass.  One  recent  trend  in  tunnel  support  design 
focuses  on  methods  which  take  advantage  of  the  strength  of  the  mass 
and  which  incorporate  mass/support  interaction.  The  brief  survey 
of  recent  work  is  presented  only  to  enumerate  these  concepts. 

The  "New  Austrian  Tunnelling  Method"  described  by  Rabcewicz 
(1964)  is  a  relatively  recent  construction  technique  for  minimizing 
the  loads  on  tunnel  supports.  In  the  method,  a  thin  layer  of 
shotcrete  is  applied  to  the  tunnel  walls  as  soon  as  is  possible 
following  excavation  in  order  to  prevent  degradation  of  the  rock 
mass  and  thus  maintain  its  strength.  However,  as  Wagner  (1970)  has 
noted,  the  proper  use  of  the  method  requires  detailed  knowledge  of 
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the  rock  properties  and  behavior. 

Daemen,  Fairhurst  and  Starfield  (1969),  Daemen  and  Fairhurst 
(1973)  and  Daemen  (1977)  stress  the  need  to  consider  both  the 
complete  force/deformation  behavior  of  the  rock  mass  and  the 
interaction  of  the  support  system  with  the  surrounding  rock  mass. 
Daemen  (1977)  presents  ground  reaction  curves  based  upon  a 
continuum  analysis  of  an  excavation  surrounded  by  a  zone  of  broken 
material  possessing  a  residual  strength.  The  method  employed 
involved  the  determination  of  the  pressure  to  be  applied  against 
the  excavation  surface  to  achieve  stability;  one  resultant  curve, 
typifying  a  material  with  low  residual  strength,  is  presented  in 
Figure  5.2.  This  figure  contains  several  interesting  features. 

The  line  labeled  k  =  ~  represents  a  material  characterized  by  a 
sudden  loss  of  strength  after  the  peak  strength  is  reached;  note 
that  the  implication  of  this  type  of  behavior  is  that  support 
pressure  is  independent  of  mass  deformation.  This  is  analagous 
to  the  "dead  weight"  loading  characteristic  of  the  design  methods 
based  upon  amount  of  upbreak.  A  second  interesting  feature  of 
the  figure  is  the  two  lines,  labeled  k  =  0  and  k  =  0.1,  correspond¬ 
ing  to  materials  exhibiting  perfectly  plastic  post  peak  behavior. 
The  implication  of  this  type  of  behavior  is  that  the  ground  will 
stand  unsupported;  in  a  15  foot  diameter  tunnel  the  strain  at  the 
cessation  of  deformation  corresponds  to  a  displacement  of 
approximately  0.1  inches. 

Finally,  the  shape  of  the  intermediate  curves  lends  analytical 
support  to  the  practice  of  placing  the  supports  early.  The 


9C 


Note:  The  parameter  "k"  describes  post  peak  behavior,  k  =0  v 
a  plastic  post  peak  behavior  while  k  =  °°  is  an  immediate 
drop  to  a  residual  strength  in  the  post  peak  region. 


Figure  5.2  Ground  reaction  curves  from  continuum  analysis  of 
rock  with  low  residual  strength  (Daemon,  197/). 
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application  of  shotcrete  immediately  after  excavation  allows  the 
support/mass  system  to  equilibrate  at  the  minimum  point  of  the 
ground  reaction  curve. 

A  similar  approach,  presented  by  Panek,  Dixon  and  Mahtab  (1975), 
was  based  upon  a  Finite  Element  analysis  and  included  the  effect 
of  joint  orientation.  Their  work  indicated  that  the  support 
pressure  was  more  sensitive  to  joint  orientation  and  joint 
slippage  than  to  failure  of  the  intact  rock  mass. 

Dixon  (1971)  noted  the  importance  of  including  the  confining 
influence  of  the  rock  mass  on  the  supports  and  produced  a  Finite 
Element  model  of  the  support  system  which  was  iteratively  used  to 
determine  the  forces  in  the  support  system.  The  forces  were  the 
resultant  of  the  application  of  independently  obtained  active  loads 
and  the  passive  resistance  of  the  rock  mass.  Orenstein  (1973) 
adopted  a  similar  procedure  using  a  frame  model  loaded  by 
independently  obtained  active  loads.  The  passive  resistance  of  the 
rock  mass  was  modeled  as  a  spring  at  each  blocking  point 
characterized  by  a  support  modulus.  Neither  of  these  approaches 
truly  models  the  interaction  of  a  rock  mass  and  its  support  system 
since  the  input  parameters  are  determined  independently.  Typical 
of  the  methods  that  do  model  the  interaction  of  the  mass  and 
support  is  that  of  Daemen  (1975).  With  this  model  Daemen  studied 
the  progressive  development  of  failing  material  surrounding  an 
excavation  and  effects  of  support  variation.  His  conclusions, 
however,  stress  the  need  for  instrumentation  programs  to  verify  this 
type  of  calculation. 
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The  other  recent  trend  in  tunneling  practice  has  been  to 
collect  design  data  from  actual  projects,  isolate  common  features 
of  the  design,  and  attempt  to  categorize  this  data  by  statistical 
manipulation  so  that  it  can  be  extrapolated  and  used  for  design  of 
new  projects.  The  attractiveness  of  this  method  in  terms  of 
the  present  study  is  that  jointing  of  the  rock  mass  plays  a  central 
role  in  all  of  these  classification  schemes. 

Abel  (1966)  combined  geologic  mapping  of  the  Straight  Creek 
tunnel  pilot  bore  with  a  limited  number  of  support  load  measurements 
to  produce  a  set  of  design  charts  for  prediction  of  rock  load 
elsewhere  in  the  tunnel.  The  method  was  judged  to  be  successful 
but  Abel  noted  that  the  results  might  not  be  applicable  in  other 
locations. 

A  classification  scheme  described  by  Kruse,  et  al.  (1970) 
related  the  design  of  pressure  tunnels  to  the  different  types  and 
quality  of  rock  encountered  during  excavation.  In  this  particular 
application  qualitative  visual  criteria  were  related  to  the 
deformation  modulus  of  the  rock  mass.  Abel's  (1966)  classification 
was  adopted  but  the  authors  stressed  that  the  usefulness  of  a 
classification  scheme  depended  upon  unambiguous  definition  of  the 
input  parameters. 

Wickham,  Tiedemann  and  Skinner  (1972,  1974),  Bieniawski  (1973), 
and  Barton,  Lien  and  Lunde  (1974)  present  conceptually  similar 
classification  schemes  for  aid  in  the  selection  of  tunnel  supports. 
The  classification  systems  are  based  upon  (respectively):  general 
area  geology,  joint  orientation  and  spacing,  and  ground  water  and 
joint  condition;  RQD,  weathering,  strength,  joint  spacing  and 
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orientation,  joint  separation,  joint  continuity,  and  ground  water; 
and,  RQD,  number  of  joint  sets,  joint  roughness  and  alteration, 
ground  water  and  adverse  stress  conditions.  All  of  the  classifica¬ 
tion  systems  are  relatively  simple  to  use,  utilizing  data  that 
should  be  routinely  collected  during  pre-construction  investigations. 
The  methods  give  similar  answers  and  can,  in  fact  be  correllated 
to  one  another  (Bieniawski,  1976). 

At  this  time  it  is  prudent  to  summarize  briefly  those 
portions  of  the  preceeding  discussion  which  are  particularly 
significant  with  respect  to  the  present  study.  The  majority  of 
the  methods  commonly  used  to  design  support  systems  in  jointed 
rock  are  based  upon  the  observation  of  isolated  failures  and  the 
extrapolation  of  successfully  designed  support  systems.  There  is 
certainly  nothing  wrong  with  extrapolating  previous  design  data  to 
proposed  ventures  provided  that  the  basic  behavior  mechanisms  of 
the  rock  mass  and  support  system  are  similar.  The  most  significant 
objections  to  this  approach  are  that  overly  conservative  designs 
could  easily  propagate  and  that  extrapolation  requires  a  complete 
understanding  of  the  pertinent  geologic  properties,  the  mass 
behavior,  and  the  function  of  the  support  system. 

Analytic  models  of  the  rock  mass  and  support  system  provide 
results  that  indicate  that  the  interaction  of  the  mass  and  support 
is  a  significant  parameter  relative  to  the  final  equilibrium  state. 

It  must  certainly  be  proper  to  utilize  a  continuum  approach  to 
study  a  highly  stressed  situation  where  the  rock  mass  is  failing 
uniformly,  but  there  is  no  real  evidence  to  suggest  that  this 
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particular  representation  is  valid  for  lower  stressed  situations 
where  the  primary  deformation  takes  place  along  pre-existing 
discontinuity  planes.  In  fact,  the  continuum  analyses  that  have 
incorporated  jointing  in  the  mass  indicate  that  the  support  load 
is  more  sensitive  to  slippage  along  the  joint  planes  than  to  the 
failure  of  the  intact  mass. 

The  present  trend  of  extrapolation  based  upon  qualitatively 
observed  parameters  and  instrumentation  provides  a  useful  and 
practical  approach  to  the  problem  of  tunnel  support  design. 

However,  the  use  of  these  classification  schemes  should  be  guided 
by  rationally  applied  analytic  models  wherever  possible.  It  is 
precisely  in  this  context  that  the  Distinct  Element  method  is  used 
in  the  remainder  of  this  chapter.  In  particular,  ground  reaction 
curves  are  presented  for  several  realistic  models  in  an  attempt  to 
provide  a  guiding  rationale  for  the  continued  use  of  the  classifica¬ 
tion  schemes. 

5.2.3  Calculati on  of  the  potential  ultimate  roof  loads  in  the 
jointed  mass  model 

The  discussion  presented  in  Chapter  4.3  introduced  a  simple 
model  for  the  behavior  of  the  roofs  of  rooms  excavated  in  a  medium 
where  the  jointing  was  assumed  to  delineate  blocks  or  s  coi  tant 
aspect  ratio.  The  orientation  of  the  joint  planes  was  limited  to 
either  horizontal  or  vertical;  additionally,  the  jointing  in  the 
vertical  direction  was  assumed  to  be  discontinuous.  Subject  to 
these  restrictions,  it  is  possible  to  describe  a  particular 


excavation/ joint  configuration  in  terms  of  three  geometric 
parameters:  the  true  span  (0);  the  aspect  ratio  of  the  blocks  (block 
thickness  (t)  divided  by  block  width  (w));  and  the  height  of  the 
triangular  zone  (h)  which  delineates  that  material  for  which 
unrestricted  movement  into  the  excavation  is  kinematically  possible. 
These  geometric  parameters  are  noted  on  the  diagramatic  section  of 
an  excavation  in  a  jointed  mass  illustrated  in  Figure  5.3(a).  The 
volume  of  material  which  kinematically  can  undergo  a  finite,  as 
opposed  to  an  infinitesimal,  displacement  into  the  excavation  is 
outlined  and  indicated  in  the  figure. 

As  noted  in  Chapter  4.3,  the  number  of  blocks  (b)  in  the  bottom 
row  of  the  roof  strata  and  height  (h)  of  the  zone  of  potential 
finite  displacement  are  given  respectively  by: 

b  =  0/w 

and  5.1 

h  =  b  •  t 

The  geometric  parameters  of  the  model  can  also  be  used  to 
determine  the  total  weight  of  the  material  within  the  triangular 
zone  of  potential  finite  displacement.  This  quantity  is  of  interest 
since  it  represents  the  maximum  load  on  the  support  system  if  the 
downward  displacement  of  the  triangular  zone  is  sufficient  to  cause 
loss  of  transmittal  of  vertical  force  across  the  boundary  between 
the  triangular  zone  and  the  overlaying  strata. 

The  total  weight  (L)  of  material  within  the  triangular  zone 
is  easily  calculated  in  terms  of  the  total  number  of  blocks  (B) 
comprising  the  zone.  For  a  unit  thickness  normal  to  the  plane  of 
the  paper  and  a  given  weight  density  (d),  the  total  weight  within 
the  zone  of  potential  finite  displacement,  of  the  basic  model 
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illustrated  in  Figure  5.3(a)  is: 

L  =  B • t • w • d  5.2 

The  tatal  number  of  blocks  within  the  zone  of  potential  finite 
displacement  is  related  to  the  true  span  of  the  excavation  and  the 
block  width.  In  fact,  it  is  the  quotient  of  these  two  parameters, 
the  number  of  blocks  in  the  bottom  row,  that  leads  to  a  simple 
expression  for  the  total  number  of  blocks  in  the  triangular  zone. 
The  total  number  of  blocks  in  the  triangular  zone  is  the  sum  of  the 
number  of  blocks  in  each  of  n  rows  of  blocks  in  the  zone: 

B  =  b  +  (b-1 )  +  ...  +  (b-n+2)  +  (b-n+1)  5.3 

The  terms  on  the  right  side  of  the  equal  sign  in  equation  5.3  are 
the  terms  of  an  arithmetic  progression 

an-a1+(n-l)d  5.4 

where  a^  is  the  first  term, 
an  is  the  nth  term,  and 
d  is  the  common  difference 

The  properties  of  the  basic  jointed  mass  model  are  such  that: 

a-j—  b,  5.5 


n  =  b,  and 
d  =  -1 

The  total  number  of  blocks  in  the  triangular  zone  is  given  by  the 
sum  of  the  first  n  terms  of  this  arithmetic  progression: 

B  =  |  (b  +  1 ) 


5.6 
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The  total  weight  of  material  within  the  zone  of  potential  finite 
displacement  is  thus: 

L">r(b  +  l).t.w.d  5.7 

In  terms  of  the  true  span  of  the  excavation: 

L  *  I-  (°  +  1)  d  5.8 

Equation  5.8  was  used  to  obtain  the  five  sets  of  curves 
presented  in  Figure  5.3.  Each  family  of  curves  represents  a 
constant  block  width  while  each  curve  within  a  family  represents  a 
different  block  thickness.  The  thickness  values  increase  in  an 
upward  direction.  The  calculations  were  performed  using  a  weight 
density  of  150  pcf;  all  length  dimensions  are  thus  in  feet.  Since 
equation  5.8  is  linear  with  respect  to  density,  the  curves  may  be 
corrected  for  any  desired  density  simply  by  multiplying  the  load  by 
the  quotient  of  the  desired  density,  in  pounds  per  cubic  foot,  and 
150  pcf. 

The  graphs  illustrated  in  Figure  5.3  should  be  used  with 
caution  since  the  model  upon  which  they  are  derived  is  based  upon 
integer  values  of  the  number  of  blocks  in  the  lower  row.  Although 
the  curves  give  a  seemingly  proper  value  of  the  load  for  non-integer 
values  of  b,  the  jointed  model  is  only  defined  for  those  instances 
where  the  span  is  an  integer  multiple  of  the  block  width.  It  must 
also  be  noted  that  even  though  the  complete  curves  have  been 
plotted  in  all  cases,  the  model  is  also  undefined  in  those  instances 
where  the  true  span  is  less  than  the  block  width.  This  cutoff  point 
has  been  indicated  on  the  abscissa  of  each  plot  by  a  small  triangle; 
the  curves  are  not  valid  for  the  basic  model  to  the  left  of  this 
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cutoff  point. 

•The  graphs  of  Figure  5.3  indicate  that  the  total  weight  of  the 
triangular  zone  increases  parabol ical ly  with  span  and  that  for  a 
given  block  width  and  span,  increasing  the  thickness  of  the  blocks 
leads  to  an  increased  load.  On  the  other  hand,  for  a  constant  span 
and  thickness,  increasing  the  width  of  the  blocks  decreases  the 
loads  on  the  supports. 

By  a  suitable  choice  of  variables  it  is  possible  to  plot  all 
of  the  data  of  Figure  5.3  as  a  single  linear  relation  between 
dimensionless  variables.  This  plot  is  presented  in  Figure  5.4. 
Although  this  plot  lacks  the  utility  of  Figure  5.3,  its  value  is 
due  to  the  fact  that  it  is  valid  for  any  consistent  set  of  units. 
For  example,  consider  an  excavation  in  a  medium  with  a  weight 
density  of  26  KN/m  and  jointing  in  the  manner  of  the  basic  model 
leading  to  blocks  of  thickness  0.5m  and  width  1.5m.  The  aspect 
ratio  of  the  blocks  is  thus  0.33.  For  an  excavation  12m  in  width, 
the  true  span  (0)  is  10.5m;  the  number  of  blocks  in  the  bottom  row 
of  the  roof  strata,  which  is  the  ratio  0/w;  is  thus  seven.  Refer¬ 
ring  to  Figure  5.4  an  ordinate  value  4.0  corresponds  to  an  abscissa 
value  7.0.  The  potential  ultimate  load  corresponding  to  a  fimce 
displacement  of  the  triangular  wedge  can  be  determined  by  multiply¬ 
ing  the  known  parameters  out  of  the  ratio.  The  load  is  thus 
4  *  10.5m  *  0.5m  *  26  KN/m^  or  546  KN  per  meter  of  excavation 
length. 


Potential  load  (kips) 


Potential  load  (kips)  Potential  load  (kips) 
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5.2.4  The  use  of  displacement  controlled  fixed  blocks  to  generate 
ground  reaction  curves 

A  ground  reaction  curve  is  a  particular  example  of  the  non¬ 
linear  stiffness  behavior  of  a  jointed  rock  mass  which  can  only 
be  determined  in  reality  by  a  succession  of  measurements.  These 
measurements  reflect  the  changing  relationship  between  the  load  to 
be  resisted  by  the  supports  and  the  inward  displacement  of  the 
rock  mass.  Since  the  force  sum  acting  on  a  spatially  fixed  block 
is  automatically  calculated  by  the  Distinct  Element  program,  a 
spatially  fixed  block  can  be  utilized  to  determine  the  magnitude 
of  the  support  force  necessary  to  stabilize  a  failing  rock  mass. 

A  value  so  determined  is  of  use  because  it  is  a  point  on  the 
ground  reaction  curve  but  this  information  is  of  much  more  value 
if  the  complete  ground  reaction  curve  can  be  determined. 

The  solution  to  the  problem  of  determining  a  complete  ground 
reaction  curve  by  the  Distinct  Element  method  requires  that  some 
type  of  automated  control  mechanism  be  incorporated  in  the  model  to 
vary  the  position  of  the  load  indicating  block. 

Analogous  to  a  laboratory  testing  frame,  there  are  two  basic 
governing  control  mechanisms:  force  control,  which  requires  a 
freely  moving  block;  and  displacement  control  which  requires  a 
spatially  fixed  block.  Both  mechanisms  require  that  a  small  block 
be  placed  against  the  strata  in  the  manner  illustrated  in  Figure 
5.5(a)  and  (b). 

To  implement  the  force  controlled  testing  machine,  the  force 
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on  the  load  indicating  block  is  reduced  by  some  amount.  The  net 
result  of  this  action  would  be  an  acceleration,  due  to  the  excess 
load  imposed  by  the  strata,  of  the  load  indicating  block  away  from 
the  strata,  continuing  until  equilibrium  of  the  system  was  again 
achieved.  In  practice,  there  are  two  serious  drawbacks  to  the 
implementation  of  a  force  controlled  testing  machine.  The  first 
problem  is  concerned  with  inertial  effects.  Beginning  at  point  (1) 
on  the  ground  reaction  curve  illustrated  in  Figure  5.5(c),  a  force 
reduction  of  magnitude  AF  should  again  reach  equilibrium  at  point 
(2);  however,  the  inertia  of  the  system  could  cause  the  jointed 
mass  to  temporarily  experience  the  conditions  at  point  (3).  Since 
the  applied  force  is  higher  than  that  required  for  equilibrium, 
the  load  indicating  block  will  move  toward  the  strata.  Owing  to 
the  highly  non-linear  stiffness  behavior  of  a  jointed  mass,  it  is 
likely  that  this  reloading  will  follow  a  different  behavior  curve 
than  the  unloading  curve.  In  the  case  illustrated,  the  reloading 
curve  is  stiffer  than  the  loading  curve,  and  the  mass  comes  to 
equilibrium  at  point  (4)  instead  of  point  (2).  The  result  of  this 
is  that  instead  of  the  true  ground  reaction  curve  (1)  -  (2)  -  (3), 
the  data  would  indicate  curve  (1)  -  (4)  as  being  the  ground  reaction 
curve. 

The  second  problem  that  would  be  encountered  would  occur  if 
the  ground  reaction  curve  had  an  upswing  such  as  the  segment  of 
the  curve  (6)  -  (7)  in  Figure  5.5(c).  The  postulated  force 
controlled  testing  machine  would  continue  to  lower  the  force  applied 
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to  the  load  indicating  block  and  thus,  equilibrium  could  not  be 
reached. 

A  displacement  controlled  governing  mechanism  is  not  foolproof 
either.  Although  not  subject  to  the  inertial  effects  of  the  freely 
moving  block  utilized  in  the  force  controlled  testing  machine,  the 
displacement  control  of  a  fixed  block  can  also  lead  to  incorrect 
results.  One  point  of  interest,  which  is  addressed  later  in  this 
chapter  concerns  the  interaction  of  the  support  and  the  rock  mass. 

If  the  presence  of  a  support  force  affects  the  development  of 
arching  within  the  rock  mass,  then  a  large  displacement  step  could 
pull  the  support  away  from  the  rock  mass  and  all  interaction 
between  the  support  and  the  rock  mass  would  cease.  One  consequence 
of  this  type  of  action  is  illustrated  in  Figure  5.5(d).  If,  indeed, 
arching  does  occur  and  stabilize  the  rock  mass  so  that  the  generated 
ground  reaction  curve  is  (1)  -  (2)  -  (3)  -  (8)  as  illustrated  in  the 
figure,  the  displacement  steps  must  be  small  enough  so  that  the 
support-mass  interactions  are  faithfully  modeled.  It  is  possible 
that  the  presence  of  the  support  tends  to  inhibit  roof  arch 
development;  if  this  is  indeed  the  case,  then  the  true  ground 
reaction  curve  would  be  (1)  -  (2)  -  (3)  -  (6)  -  (9).  This  problem 
will  not  arise  if  the  displacement  steps  are  small  enough. 

It  might  be  noted  that  the  mechanism  of  unfixing  a  block  and 
letting  it  move  to  a  new  position  before  refixing  it  does  not  lead 
to  an  acceptable  solution.  The  force  sum  acting  on  the  fixed  block 
is  a  large  quantity  relative  to  the  weight  of  the  fixed  block.  Thus 
when  the  fixity  of  the  block  is  removed,  high  acceleration  would 
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tend  to  make  the  now  free  block  undergo  a  large  displacement.  This 
of  course,  could  lead  to  the  same  problem  illustrated  in  Figure 
5.5(d). 

The  actual  mechanism  incorporated  in  the  Distinct  Element 
program  is  the  displacement  controlled  fixed  block.  The  routine 
modifies  the  low  order  (high  precision)  part  of  the  fixed  block 
centroid  coordinates.  Displacements  in  the  x  coordinate  direction 
and  the  y  coordinate  direction  are  specified  as  well  as  the  number 
of  cycles  between  displacement  steps.  Once  the  displacement  control 
mechanism  is  enabled,  it  will  continue  to  incrementally  move  the 
load  indicating  block,  until  the  control  mechanism  is  disabled.  In 
this  manner,  the  displacement  control  mechanism  functions  as  a 
testing  machine  with  the  output  being  a  ground  reaction  curve  for 
the  rock  mass  in  question.  In  actual  use,  however,  the  mechanism 
is  disabled  at  frequent  intervals  to  ensure  that  the  mass/support 
system  reaches  equilibrium  before  continuing  the  displacement  of  the 
load  indicating  block. 


5 . 3  Support  Requirements  in  the  Absence  of  Arch  Development 

In  order  that  the  development  of  the  ideas  presented  in  this 
chapter  be  complete,  it  is  prudent  to  examine  the  support  require¬ 
ments  for  the  simple  monolithic  roof  model  presented  in  Chapter  4.4. 
Recall  that  owing  to  the  absence  of  flexural  deformation  in  the 
model,  arching  behavior  was  unable  to  develop  and  stability  of  the 
single  block  was  achieved  by  frictional  resistance  acting  along  the 
vertical  joints.  For  those  situations  where  the  magnitude  of  the 
horizontal  force  acting  on  the  block  is  insufficient  to  prevent 
failure  of  the  roof  through  downward  movement  of  the  block, 
equilibrium,  and  thus  the  integrety  of  the  roof,  can  only  be 
obtained  by  the  application  of  an  external  force. 

The  Limit  Equilibrium  models  utilized  in  Chapter  4  can  easily 
be  modified  to  incorporate  an  external  force  or  the  resultant  of 
an  external  support  pressure;  the  modified  models  are  illustrated 
in  Figure  5.6(a).  The  assumptions  of  symmetry  of  the  frictional 
reactions  and  the  full  mobilization  of  frictional  resistance  lead 
to  an  equation  of  vertical  equilibrium  which  is  given  by: 

P  =  W  -  2  tanO  5.9 

where:  P  is  the  external  support  load; 

W  is  the  weight  of  the  block 

H  is  the  total  horizontal  thrust;  and 

f  is  the  angle  of  sliding  friction  of  the  joints. 

If  the  support  load  and  horizontal  thrust  are  normalized  with 
respect  to  the  weight,  a  diminsionless  form  of  equation  5.9, 
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a)  Limit  Equilibrium  models  of  roof  behavior  under 
ombined  frictional  suspension  and  external  force. 

b)  external  support  requirement  for  stability  of 
rictionally  suspended  roofs. 
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P  -i  3H  ,  c 

w  -  1  -  vT  tan*  5-10 

is  obtained.  This  equation  is  plotted  in  Figure  5.6(b)  for  various 
values  of  tan<J>.  As  was  expected,  the  magnitude  of  the  external 
support  force  decreases  with  increasing  horizontal  thrust;  the 
decrease  is  more  rapid  for  higher  joint  friction  angles. 

A  number  of  unstable,  monolithic  roof  geometries  were  modeled 
using  the  Distinct  Element  method  for  purposes  of  comparison  to 
equation  5.10.  In  these  models  the  external  support  load  required 
for  stability  was  either  applied  to  the  centroid  of  the  roof  block 
or  applied  to  the  centroid  of  a  small  block  placed  at  midspan  on 
the  bottom  of  the  roof  block  specifically  for  this  purpose.  There 
was  no  discernable  difference  in  the  results  obtained  by  the 
different  methods.  Examination  of  Figure  5.6(b)  reveals  a  high 
degree  of  correlation  between  the  Limit  Equilibrium  solution  and 
those  calculated  by  the  Distinct  Element  method. 

The  basic  model  dealt  with  in  this  study  forms  an  inverted 
"staircase"  in  the  roof  when  failure  occurs  (see  Chapter  4.3).  The 
geometric  relationships  relating  total  roof  load  to  the  span  of  the 
excavation  and  the  aspect  ratio  of  the  blocks  formed  by  the  jointing 
which  were  developed  in  the  preceeding  section  can  be  used  to 
determine  the  magnitude  of  the  parameter  W  in  equation  5.9.  Bearing 
in  mind  the  fact  that  the  roof  is  monolithic  it  is  still  possible  to 
calculate  a  ficticious  aspect  ratio  for  the  joints  that  form  the 
vertical  sides  of  the  roof  block.  Thus  equation  5.7  or  5.8  may  be 
used  to  determine  the  total  weight  of  the  roof.  If  the  support 
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force  is  assumed  to  be  some  percentage  (K)  of  the  total  roof  load 
and  if  in  addition,  the  total  horizontal  thrust  (H)  is  expressed  as 
the  height  of  the  arch  (h)  multiplied  by  the  horizontal  stress  (c^), 
then  K  is  given  by  the  relation: 

KW  =  W  -  2H  tan*  5.11(a) 


5.11(b) 


K  =  1  -  4R/(0  +  w) 

The  stress  factor  (R)  is  defined  as 
d  =  Dh  tan* 


5.12 


5.13 


All  of  the  above  mentioned  parameters  are  illustrated  in  Figure  5.8. 

Figure  5.7  illustrates  the  relationship  between  the  percentage 
of  the  roof  load  to  be  supported  (K),  the  true  opening  width  (0), 
the  stress  factor  (R)  and  the  block  width  (w).  The  three  separate 
graphs  correspond  to  different  values  of  w,  chosen  to  represent:  a 
high  fracture  frequency  or  a  low  RQD  (w  =  2  in.);  a  moderate  fracture 
frequency  or  RQD  (w  =  10  in.)  and;  a  low  fracture  frequency  or  a 
high  RQD  (w  =  25  in.).  The  curves  demonstrate  an  increase  in  the 
percentage  of  support  required  corresponding  to  an  increase  in 
block  width;  this  reflects  the  fact  that  for  any  given  block  thick¬ 
ness,  an  increase  in  the  block  width  tends  to  make  the  roof  block 
assume  a  rectangular  rather  than  a  triangular  shape.  The  percentage 
of  support  required  also  decreases  with  increasing  horizontal  stress 
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(c^)  or  friction  coefficient  (tan$)  or  decreasing  material  density 
(d).  This  fact  is  expressed  by  the  stress  factor  (R)  which  is  also 
incorporated  in  the  graphs  shown  in  Figure  5.7. 

Equation  5.12  can  also  be  used  to  determine  the  maximum 
unsupported  span  length  for  the  model  illustrated  in  Figure  5.8 
simply  by  solving  for  the  situation  where  there  is  no  required 
external  support  force  (K  =  0).  Linder  these  stipulations,  equation 
5.12  becomes: 

0  +  w  =  4  ghdtan£  5.14 

The  quantity  0  +  w  is  the  excavation  width  (S)  illustrated  in  Figure 
5.8;  the  figure  also  presents  a  plot  of  excavation  width  (S)  as  a 
function  of  horizontal  stress  (a^)  for  different  values  of  tan<}>. 

This  figure  can  be  used  to  determine  the  maximum  expected  horizontal 
span  for  a  monolithic  roof  failing  by  slipping  along  vertical  joints 
in  the  presence  of  a  horizontal  stress  field. 

The  model  under  consideration  does  not  incorporate  failure  by 
arching  but  it  is  of  interest  to  know  if  the  maximum  span  predicted 
by  equation  5.6  exceeds  the  span  at  which  failure  by  arching  would 
occur.  This  can  be  determined  for  the  simple  case  of  a  rectangular 
roof  comprised  of  two  blocks,  since  the  rigid  block  analyses  of 
single  layer  model  arching  developed  in  Chapter  4.5.3  indicated  that 
a  clearly  defined  boundary  between  failure  by  sliding  and  failure 
by  arching  could  be  determined  for  a  multi-block,  single  layer  model. 
In  terms  of  maximum  unsupported  spans  for  a  two  block  rectangular 


roof,  equation  4.3  may  be  rewritten: 
a. 

0  =  2^  tan<J>  5.15 

Likewise,  equation  4.9,  which  relates  horizontal  thrust  to  span  may 
be  rewritten: 


It  is  thus  possible,  at  least  in  the  simple  case  of  a  roof  comprised 
of  two  rectangular  blocks,  to  determine  if  the  calculated  maximum 
unsupported  span  exceeds  the  approximate  value  of  the  span  at  which 
failure  occurs  by  arching. 

Equations  5.15  and  5.16  are  actually  tne  dividing  lines  that 
separate  zones  of  stability  and  instability;  in  the  first  case  the 
equation  delineates  that  zone  where  sliding  will  occur  and  in  the 
second  case,  the  equation  delineates  that  zone  where  failure  will 
be  by  arching.  Equations  5.15  and  5.16  have  been  plotted  in  Figure 
5.9  with  horizontal  stress  plotted  as  a  function  of  span,  various 
values  of  the  joint  friction  coefficient  have  resulted  in  a  family 
of  curves,  inclined  at  about  25  degrees  from  the  span  axis,  that 
delineate  the  zones  of  sliding  failure.  Similarly,  various  values 
of  the  block  thickness  have  resulted  in  the  family  of  curves,  at 
the  steeper  inclination,  that  delineate  the  zones  of  arching  failure. 
When  plotted  on  the  same  figure,  these  two  equations  thus  delineate 
four  zones,  indicative  of  the  condition  of  the  roof,  that  are 
dependent  upon  the  block  thickness  and  the  joint  friction 


V-41 


coefficient.  To  use  Figure  5.9  the  curve  corresponding  to  the  block 
thickness  and  the  curve  corresponding  to  the  friction  coefficient 
are  selected.  The  point  corresponding  to  the  span  and  horizontal 
stress  will  then  lie  in  one  of  four  zones.  The  zones  correspond  to 
complete  stability,  failure  by  sliding,  failure  by  arching,  and 
failure  by  sliding  and  arching.  These  zones  are  illustrated  in 
Figure  5.9  for  the  particular  case  t  =  2  feet  and  tan<f>  =  0.5. 
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5.9  Conditions  for  failure  by  arching  or  sliding  for  the 
illustrated  roof  geometry. 


friction  coefficient  (y) 
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5 • 4  An  Investi gation  of  S upoort  Requirements  in  Jo i nted  Roofs 

5.4,1  Jointed  mass  behavior  representation  by  means  of  ground 
reaction  curves 

The  brief  survey  of  design  concepts  presently  in  use  to  aid 
in  the  dimensioning  of  tunnel  supports  indicated  that  the  majority 
of  the  methods  that  recognize  the  rock  mass  as  a  jointed  discontinuum 
are  of  an  empirical  nature  and  are  often  criticized  for  their 
failure  to  account  for  the  interaction  of  the  support  system  and 
the  rock  mass.  However,  the  fact  that  the  older  amount  of  upbreak 
or  dead  weight  loading  schemes  (Bierbaumer,  Terzaghi  and  Stini)  are 
based  upon  observations,  admittedly  crude,  of  pressures  acting 
on  installed  support  systems  indicates  that  there  is  at  least 
some  partial  measure  of  the  support/mass  interaction  incorporated 
within  them.  The  same  is  true  of  the  newer  schemes  (Wickman, 

Tiedeman  and  Skinner,  Bieniawski,  and  Barton);  the  design 
pressures  are  based  upon  actual  installed  support  data  supplemented 
by  instrumentation  data  where  it  was  available.  Thus  the 
interaction  of  the  mass  and  support  system  is  incorporated  in 
these  schemes  even  though  it  is  not  somehow  explicitly  expressed 
as  one  of  the  basic  input  parameters. 

Conspicuous  in  its  absence,  however,  is  analytical  substantia¬ 
tion  of  the  required  supoort  loads  predicted  by  the  empirical 
schemes  for  those  instances  where  the  failure  of  the  rock  mass 
and  the  resulting  loading  of  the  support  system  is  governed  by 

I 

the  presence  of  distinct  planes  of  weakness,  such 'as  joints  and 


faults,  within  the  rock  mass.  The  Distinct  Element  method 
provides  the  mechanism  to  investigate  the  behavior  of  jointed 
masses  which  are  controlled  by  the  behavior  of  the  joints. 
Additionally,  the  implementation  of  the  displacement  controlled 
testing  mechanism  described  in  Chapter  5.2.4  provides  the  data 
necessary  to  quantitatively  describe  the  behavior  of  the  jointed 
rock  mass  as  it  interacts  with  a  simple  support  system. 

The  Distinct  Element  method  has  been  used  to  study  the 
support  requirements  of  numerous  excavation  roofs  which  possess 
the  joint  pattern  characteristic  of  the  basic  model  utilized 
in  Chapter  4.  These  characteristics  are  regular,  continuous 
jointing  in  the  horizontal  direction  and  regular,  discontinuous 

jointing  in  the  vertical  direction.  Once  again,  this  is  a  plane 

■  1 

strain  model  and  the  aspect  ratio  of  the  blocks  for  a  given 
problem  is  a  constant.  The  results  of  this  investigation  are 
presented  in  this  section  by  means  of  several  ground  reaction 
curves  which  are  representative  of  the  observed  responses. 

The  results  presented  in  Chapter  4  indicated  that  the 
stability  of  the  roof  of  an  excavation  in  jointed  rock  was  most 
sensitive  to  the  magnitude  of  the  horizontal  stress.  It 
follows  logically,  therefore,  that  an  investigation  of  the  support 
requirements  of  excavations  in  jointed  media  should  be  concerned 
with  the  effect  of  horizontal  stress  on  the  ground  behavior  as 
expressed  by  a  ground  reaction  curve  relating  the  total  load 
acting  on  the  support  to  the  vertical  deflection  of  the  support. 
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The  models  analyzed  in  this  chapter  are  subject  to  the 
limitations  of  those  described  in  Chapter  4,  namely  highly  idealized 
joint  behavior  and  a  simplified  mechanism  for  modeling  the 
horizontal  stress.  The  joints  are  modeled  as  planar  and  do  not 
possess  cohesion.  The  tendency  of  construction  procedures  such 
as  blasting  is  to  destroy  the  cohesion  of  the  joint  surfaces  near 
the  excavation.  This,  coupled  with  the  fact  that  the  models  portray 
the  behavior  of  failing  masses  leads  to  the  conclusion  that  the 
analyses  are  valid  in  terms  of  the  cohesive  strength  of  the  joints. 
The  fact  that  the  joints  are  considered  to  be  planar,  however, 
does  detract  somewhat  from  the  validity  of  the  analyses.  Real 
joints  are  non-planar;  perfectly  mating  rough  surfaces  can  only  be 
forced  to  slide  relative  to  one  another  if  they  are  free  to  move 
apart.  This  dilatancy  leads  to  increased  mass  strength  for  if  the 
joint  separates  two  confined  blocks,  the  only  way  relative  movement 
can  occur  is  if  shearing  of  the  rock  mass  takes  place.  As  noted 
in  Chapter  4.5.2,  the  horizontal  stress  field  is  modeled  as  a 
constant  load,  owing  to  the  rigid  nature  of  the  blocks  in  the 
Distinct  Element  formulation.  Under  a  constant  load  situation 
strength  increases  due  to  dilatancy  do  not  occur.  The  analyses 
presented  in  this  chapter  are  probably  only  realistic  for 
problems  where  dilatancy  does  not  play  a  significant  role. 

Near  surface  excavations  with  relatively  open  or  infilled  jointing 
are  examples  of  such  a  situation. 

Figure  5.10  presents  two  ground  reaction  curves  for  the  six 


meter  wide  excavation  illustrated  in  the  figure.  Part  (a)  of  the 
figure  illustrates  the  ground  reaction  curve  for  a  case  where 
sufficient  horizontal  stress  exists  to  stabilize  the  mass  in  the 
absence  of  externally  applied  support.  The  ground  reaction  curve 
reflects  this  fact  indicating  that  a  value  of  the  roof  deflection 
of  approximately  five  centimeters,  the  load  acting  on  the  supports 
is  zero.  The  second  ground  reaction  curve  illustrated  in  the  figure 
represents  a  situation  where  the  magnitude  of  the  horizontal  stress 
field  is  insufficient  to  stabilize  the  mass  without  the  introduction 
of  external  support.  The  parameter  W,  indicated  on  the  ground 
reaction  curve,  is  the  total  weight  of  the  material  within  the 
zone  of  potential  finite  displacement  described  in  Chapter  5.2.3. 

W  is  thus  that  quantity  which  was  previously  termed  the  potential 
ultimate  roof  load.  The  form  of  the  ground  reaction  curve  suggests 
that  as  deflection  of  the  roof  continues  the  required  support 
force  approaches  a  constant  value,  and  that  this  value  is  given 
by  the  potential  ultimate  of  load  W. 

A  similar  situation  a  four  meter  wide  excavation  where 
the  blocks  have  a  significantly  lower  aspect  ratio  (0.4  as 
opposed  to  1.5  for  the  first  case)  is  presented  in  Figure  5.11. 

As  before,  the  two  ground  reaction  curves  represent  the  situations 
where  sufficient  stabilizing  horizontal  pressure  is  present 
(part  a)  and  the  case  where  external  support  is  required  for 
stability  for  the  roof  (part  b).  However,  in  this  case,  the 
ground  reaction  curve  in  the  first  part  of  the  figure  represents 
the  behavior  of  the  mass  where  the  applied  horizontal  stress  is 
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Figure  5.10  Ground  Reaction  Curves  for  6m  Wide 

Excavation:(a)  High  Horizontal  Stress;(b)  Low  Stress 
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(b)  Deflection  (cm) 


Figure  5.11  Ground  Reaction  Curves  for  4m  Hide  Excavation:  (a)Stabil izing 
Horizontal  Stress;  (b)  Insufficient  Horizontal  Stabilizing 
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not  significantly  higher  than  the  value  where  failure  would  occur 
if  no  support  system  was  present.  The  end  result  is  the  same  as 
that  seen  in  higher  stress  situations  presented  for  the  six  meter 
wide  excavation.  The  support  requirements  drop  to  zero  at  a  roof 
deflection  of  approximately  three  cm,  but  in  the  case  of  the  four 
meter  wide  excavation  there  is  a  noticeable  kink  in  the  ground 
reaction  curve  occurring  at  the  value  of  the  load  corresponding  to 
the  potential  ultimate  roof  load.  This  probably  reflects  the  need 
for  finite  displacement  to  occur  before  rotation  of  the  blocks  can 
devleop  the  arch  necessary  to  stabilize  the  roof.  The  second  part 
of  the  figure  presents  the  ground  reaction  curve  for  the  situation 
where  the  horizontal  stress  alone  is  insufficient  to  stabilize  the 
mass.  Again,  the  behavior  of  the  roof  indicates  that  the  support 
requirements  approach  a  constant  level  with  increasing  deflection 
of  the  roof.  Note  that  the  value  of  the  required  support  resistance 
is  again  given  by  the  potential  ultimate  roof  load  W. 

The  tendency  for  the  ground  reaction  to  indicate  a  constant 
value  of  the  required  support  force  was  observed  in  the  majority 
of  the  cases  examined.  Exceptions  to  this  observed  behavior  were 
rare;  one  example  will  be  presented  shortly.  The  three  ground 
reaction  curves  presented  in  Figure  5.12  are  representative  of  a 
number  of  calculated  mass  responses  and  indicate  that  the  rock  load 
for  which  supports  should  be  designed  is  represented  fairly  accurately 
by  the  potential  ultimate  roof  load.  Figure  5.12(a)  and  (b)  both  rep¬ 
resent  situations  of  insufficient  horizontal  stabilizing  force  for  a 
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Figure  5.12  Ground  Reaction  Curves  for  a  16  meter  Wide  Excavation 
Illustrating  the  Consistancy  of  Constant  Support  Load 
with  Decreasing  Horizontal  Stress  and  Friction  Coefficient 


Figure  5.12  Continued. 
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16  meter  wide  excavation;  part  (b)  however,  represents  a 
situation  of  much  lower  horizontal  stress.  The  general  shape  of 
the  ground  reaction  curves  is,  nevertheless,  similar.  The  third 
ground  reaction  curve  also  represents  low  stress  conditions  but 
indicates  the  effect  of  increasing  the  friction  coefficient  of  the 
joints.  As  can  be  seen,  the  same  constant  load  requirement 
emerges.  The  major  effect  of  the  higher  friction  coefficient 
is  to  decrease  the  rate  at  which  the  ground  reaction  curve  drops 
to  the  final,  constant  level.  This  is  also  representative  of 
other  cases  observed;  an  increase  in  the  friction  coefficient 
has  little  effect  on  the  ultimate  support  requirement. 

The  three  curves  presented  in  Figure  5.12  also  indicate  a 
characteristic  decrease  in  the  support  load  requirements  with 
further  roof  deflection.  This  decrease  in  required  support  was 
observed  most  frequently  in  problems  involving  blocks  with  a  low 
aspect  ratio,  This  behavior  typically  corresponded  to  roof 
deflections  of  the  order  of  10  to  20  percent  of  the  block 
thickness  and  is  indicative  of  bed  separation  occurring  as  an  arch 
develops  in  the  second  row  of  strata  above  the  excavation.  This 
behavior  was  not  observed  in  situations  involving  higher  aspect 
ratios,  probably  owing  to  the  tendency  of  this  type  of  model  to 
fail  by  sliding  rather  than  arching. 

The  presentation  nf  the  calculated  ground  reaction  curves  has 
indicated  that  two  general  behavior  patterns  emerged  from  this 
investigation:  first,  ground  reaction  curves  for  masses  which 
would  have  been  stable  without  external  support  reflect  this 
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stability  by  indicating  no  required  load  after  a  small  finite 
deflection  of  the  roof;  and  second,  ground  reaction  curves  for 
masses  which  would  have  failed  without  external  support  indicate 
that  the  required  support  is  a  constant  value,  typically  given  by 
the  potential  ultimate  roof  load  of  the  model.  The  first  result 
was  not  unexpected;  the  second  result,  however,  requires  an 
attempted  explanation. 

Figure  5.13(a)  illustrates  a  10  meter  wide  excavation;  the 
distribution  of  contact  forces  for  the  case  of  no  external 
support  is  illustrated  in  part  (b)  of  the  figure.  The  contact 
force  distribution  represents  clearly  the  situation  observed  for 
other  stable  excavation  geometries;  well  developed  roof  and  ground 
arches  can  be  seen  along  with  minimal  vertical  force  transmittal 
within  the  zone  of  potential  finite  displacement.  The  contact 
force  distributions  illustrated  in  Figure  5.13  (c)  and  (d)  are 
representative  of  conditions  prevailing  in  the  presence  of  external 
support.  The  relative  roof  deflections  of  the  roof  corresponding 
to  these  force  distributions  are  indicated  on  the  ground  reaction 
curve  for  the  mass  in  part  (e)  of  the  figure.  The  first  force 
distribution  indicates  that  the  presence  of  the  support  results 
in  an  initial  inhibition  of  the  development  of  the  roof  arch  and 
allows  vertical  force  transmittal  through  the  zone  of  potential 
finite  displacement.  Part  (d)  of  the  figure  is  indicative  of 
conditions  on  the  constant  portion  of  the  ground  reaction.  The 
roof  arch  is  partially  developed,  but  the  presence  of  the  support 
is  preventing  the  block  rotations  necessary  for  minimizing  the 
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(h)  No  External  Support;  (c)  and  (d)  External  Support; 


Relative  Deformation  Indicated  on  Ground  Reaction  Curve  (e) 


Figure  5.13  Continued. 
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vertical  force  transmittal  within  the  zone  of  potential  finite 
displacement. 

At  this  point  it  is  opportune  to  emphasize  the  "physical1' 
properties  governing  the  behavior  of  the  joints.  In  the  present 
formulation  of  the  Distinct  Element  program,  the  joints  are 
assumed  to  be  smooth,  planar  surfaces  with  shear  strength  due 
only  to  frictional  resistance.  This  characterization  neglects 
two  important  parameters  of  joint  behavior:  cohesion  and  dilatancy. 
Cohesion  along  joint  surfaces  is  significant  in  determining  the 
initial  strength  of  a  joint;  once  failure  begins,  cohesion  is 
typically  lost,  so  it  is  probably  realistic  to  characterize  a 
failing  jointed  mass  as  cohesionless.  The  dilatant  properties 
of  joints  are  relatively  well  known,  at  least  qualitatively. 

The  main  effect  of  the  dilatant  behavior  of  joints  is  a  volume 
increase  with  shear  movement  resulting  in  an  increased  normal 
stress  on  the  joint  and  thus,  an  increased  resistance  to  shear. 

In  order  to  arrive  at  the  ground  reaction  curves  presented  in 
this  section  the  behavior  of  the  joints  was  thus  highly  idealized. 

It  is  therefore  unrealistic  to  expect  that  the  ground  reaction 
curves  presented  are  characteristic  of  the  behavior  of  all 
jointed  masses. 

As  a  final  example  of  a  ground  reaction  curve  for  an 
excavation  in  a  jointed  rock  mass,  a  situation  is  presented  where 
the  typical,  constant  ultimate  load  requirement  was  not  observed. 

The  case  under  consideration ,  a  24  meter  wide  excavation  where 
the  jointing  defines  blocks  having  an  aspect  ratio  of  0.1,  is 
illustrated  in  Figure  5.14.  The  ground  reaction  curve,  also 
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illustrated  in  the  figure,  is  seen  to  possess  characteristics 
markedly  different  from  those  typically  observed.  The  most 
significant  of  these  are  the  lower  rate  of  decrease  of  the 
curve,  an  upswing  of  the  curve  with  increasing  roof  defleciton, 
and  values  of  the  support  requirements  significantly  in  excess 
of  the  potential  ultimate  roof  load.  As  an  aid  to  understanding 
this  departure  from  the  typical  behavior,  it  is  instructive  to 
examine  the  geometry  of  the  deformed  state  of  the  rock  mass  as 
indicated  in  parts  (b)  and  (c)  of  the  figure.  As  can  be  seen, 
the  maximum  deflection  of  the  roof  is  not  occurring  at  the 
support  point  as  was  the  case  in  the  other  geometries  examined. 
Additional  1-y  the  horizontal  force  is  causing  the  relatively 
slender  lower  strata  to  buckle.  The  result  of  this  action  is  that 
the  lower  row  of  blocks  is  actually  "prying"  the  support  block 
awa y  form  the  strata  and  thus  acting  to  increase  the  load  on  the 
support. 

This  example  points  out  several  shortcomings  of  this  analysis 
which  should  be  enumerated.  First,  it  indicates  the  inadequacy 
of  modeling  the  support  system  as  a  single  point  since  multiple 
"blocking  points"  could  have  prevented  the  off  center  maximum 
deflections  and  possibly  could  have  resulted  in  a  different 
response.  The  other  major  shortcoming  of  this  analysis  is  the 
infinite  strength  of  the  blocks.  In  a  real  situation  the 
behavior  indicated  in  the  figure  would  probably  result  in  fracture 
of  the  blocks  long  before  the  situation  indicated  in  part  (c)  of 
the  figure  could  have  developed. 
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The  modeling  of  jointed  excavation  roofs  presented  in  this 
section  lead  to  the  conclusion  that  the  ultimate  load  to  be 
resisted  by  the  support  system  could  be  predicted,  in  the  majority 
of  cases,  by  the  potential  ultimate  roof  load  described  in  Chapter 
5.2.3.  The  ultimate  loads  predicted  by  the  ground  reaction 
curves  are  summarized  in  Figure  5.15.  Neglecting  data  from 
analyses  similar  to  that  just  described,  a  relationship  between 
the  ultimate  support  load  and  the  span  of  the  excavation  can  be 
seen.  This  relationship  was  found  to  be  a  function  of  the  aspect 
ratio  of  the  blocks,  but  relatively  insensitive  to  the  friction 
coefficient  of  the  joints.  The  relationship  between  the  support 
load  required  and  span  is  given  approximately  by: 

L  =  n  B2  5.14 

where 

n  =  2  +  5A,  and 
A  is  the  block  aspect  ratio. 


lUMiimwimnw'ji  i  i  i 

f 


1  5  10  15  20  30 

Span  0  (meters) 


Note:  A  is  the  aspect  ratio  defined  by  the 
jointing. 


Figure  5.15  Summary  of  ultimate  loads  on  support  system  for 
cases  where  the  mass  did  not  stabilize  indepen¬ 
dently  of  the  support  system. 
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Figure  5.4  or  approximated  by  equation  5.17  in  terms  of  the  span 
and  the  aspect  ratio  of  the  blocks.  In  this  section  is  presented 
a  comparison  of  these  results  and  the  observed  load-span  relation¬ 
ship  with  several  of  the  empirical  schemes  to  see  if  a  correlation 
exists.  To  ensure  that  the  discussion  doesn't  stray  too  far  from 
reality,  actual  design  data  from  several  underground  excavations 
is  also  included. 

The  primary  purpose  of  this  investigation  was  to  see  if  the 
Distinct  Element  calculated  response  of  an  excavation  in  jointed 
rock,  taking  account  of  mass/support  interaction,  could  be 
correlated  to  "dead  weight"  load  schemes  such  as  that  proposed  by 
Terzaghi.  Several  comparisons  of  this  type  are  presented  in 
Figure  5.16.  Parts  (a)  and  (b)  of  the  figure  present  the  total 
load  to  be  resisted  as  a  function  of  span  as  estimated  by  the 
methods  of  Terzaghi  and  Stini.  The  Terzaghi  load  classes  two, 
three  and  four  are  included  on  the  graph  and  it  can  be  seen  that 
classes  two  (hard,  stratified)  and  three  (massive,  moderately 
jointed)  bracket  the  data  nicely.  It  should  be  noted  that  the 
models  examined  could  be  included  in  class  four  (blocky  and  seamy) 
and  as  such,  would  indicate  that  Terzaghi’s  method  is  non-conserva¬ 
tive.  Similarly,  the  Stini  estimates  for  classes  two,  three  and 
four  have  been  plotted  in  part  (b)  of  the  figure  and  compared  to  the 
Distinct  Element  responses.  Examination  of  the  comparison 
presented  in  the  figure  indicates  good  agreement  with  the  Stini 
classes  two  (nearly  stable)  and  three  (lightly  broken)  for  spans 
greater  than  about  eight  meters  in  width,  but  the  agreement  becomes 


(b)  Span  (m) 

Figure  5.16  Comparison  of  Distinct  Element  calculated 
required  support  load  with:  (a)  Terzaghi 
estimates,  (b)  Stini  estimates. 
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less  good  with  decreasing  span. 

The  constant  pressure  theory  of  Bierbaumer  is  compared  to 
the  data  in  part  (c)  of  the  figure.  There  is  a  semblance  of 
agreement  for  spans  in  the  25  to  30  meter  range;  extrapolation  of 
the  trends  of  the  data,  however,  indicates  that  this  agreement  is 
probably  coincidental  {two  non-parallel  lines  must  intersect 
somewhere).  It  is  unlikely  that  Bierbaumer  had  access  to  data  from 
excavations  of  this  width;  for  spans  in  the  two  to  five  meter 
range,  there  is  no  correlation  between  Bierbaumer's  method  of 
predicting  the  load  and  that  calculated  by  the  Distinct  Element 
method. 

The  final  comparison  presented  in  Figure  5.16  utilizes  the 
load  estimation  scheme  described  by  Cording  et  al .  (1971).  This 
scheme  will  be  described  in  some  detail  presently  but  for  now  it 
is  sufficient  to  note  that  the  parameter  n  is  based  upon  actual 
design  data.  The  fit  of  the  curves  to  the  Distinct  Element  data 
is  quite  good. 

This  comparison  would  certainly  be  more  meaningful  if  the 
actual  design  data  for  excavations  in  which  the  support  system  had 
failed  were  available.  The  next  best  information  is  design  data 
for  excavations  that  did  not  fail;  this  is  what  is  available  and  it 
will  be  used  in  further  comparison.  A  significant  number  of  actual 
support  pressure  designs  were  summarized  by  Cording  et  al .  (1971); 
this  data  is  presented  graphically  in  Figure  5.17(a).  Cording  et  al . 
attempted  to  correlate  RQD  to  support  pressure  by  means  of  what 
they  termed  the  Terzaghi  Design  Envelope  (Figure  5.17(b).  This 


Figure  5.17  (a)  Summary  of  support  pressure  design  data  used 

for  cavern  excavations,  (b)  logarithmic  representation 
of  total  load. 
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data  has  been  replotted  in  part  (c)  of  the  figure  to  reflect 
total  loads  rather  than  pressures.  This  classification  scheme, 
then  is  essentially  similar  to  Terzaghi's  but  predicts  a  smaller 
total  load  or  pressure  when  the  value  of  RQD  is  very  high.  It 
must  be  emphasized  that  the  data  represents  design  pressures  for 
excavations  that  are  stable.  Invariably,  the  data  then  represents 
an  incorporated  factor  of  safety  or  an  overdesign.  Additionally, 
most  of  the  caverns  have  arched  crowns;  in  general  higher  support 
pressures  would  be  required  for  excavations  having  flatter  roofs. 
It  can  be  seen,  therefore,  that  the  comparison  of  this  design 
data  and  the  required  loads  calculated  by  the  Distinct  Element 
program  is  not  strictly  valid.  It  is  not  suggested  that  the 
amount  of  over  design  and  the  required  pressure  increase  in  the 
case  of  the  flat  roof  cancel  each  other,  but  that  the  combined 
result  gives  a  valid  basis  for  comparison. 

Four  of  the  graphs  presented  in  Figure  5.18  are  identical  to 
those  presented  in  Figure  5.16  except  that  the  design  data 
summarized  by  Cording  et  al.  has  been  incorporated  on  each  of  the 
plots.  Most  of  the  comments  presented  earlier  are  still  valid, 
but  additional  comment  is  required  in  several  instances.  The 
conservative  nature  of  the  Terzaghi  rock  load  estimates  is  more 
apparent  when  the  data  of  Cording  et  al.  is  added  to  the  plot. 
Stini's  estimates  of  the  rock  load  still  fit  the  data  quite  well 
for  spans  greater  than  10  meters;  unfortunately  data  for  the 
narrower  spans  was  not  available.  The  rock  loads  predicted  by 
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Figure  5.18  Summary  of  support  loads  as  calculated  by  the 

Distinct  Element  method  and  reported  in  the  literature 
Comparisons  to  metoods  of:  (a)  Terzaghi ; (b)Stini ; 
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Bierbaumer's  method  are  still  quite  nonconservative  in  light  of  the 
actual  support  pressures.  The  estimates  of  the  rock  load  as 
calculated  by  the  method  of  Cording  et  al.  are  seen  to  fit  the  data 
quite  wel 1 ,  and  seems  to  indicate  that  an  RQD  based  modification  of 
the  Terzaghi  rock  load  estimates  is  a  valid  tool  for  the  estimation 
of  expected  support  loads  in  an  excavation. 

It  is  beyond  the  scope  of  this  investigation  to  present 
detailed  summaries  of  the  newer  classification  schemes  presented 
by  Wickham  et  al . ,  Bieniawski,  and  Barton  et  al .  but  it  is  relevant 
to  include  at  least  one  of  the  schemes  in  the  comparisons  presented 
herein.  Of  the  three  methods.  Barton,  Lien  and  Lunde’s  was  chosen 
for  inclusion  for  no  reason  other  than  that  the  results  are  expressed 
as  support  pressures.  Some  familiarity  with  the  method  on  the  part 
of  the  reader  is  assumed. 

Barton,  Lien  and  Lunde's  classification  scheme  requires  the 
specification  of  six  input  quantities;  the  values  of  those  quantities 
thought  to  represent  the  Distinct  Element  modeled  geometries  are 
presented  in  Table  5.5. 

Table  5.5  Parameter  Values  for  Rock  Mass  Quality  Q 


A)  RQD  (Good  to  excellent)  75-100% 

B)  Joint  Set  Number  (two  joint  sets)  4.0 

C)  Joint  Roughness  Number  (smooth,  planar)  1.0 

D)  Joint  Alteration  Number  (unaltered)  1.0 

E)  Joint  Water  Reduction  Factor  (dry)  1.0 

F)  Stress  Reduction  Factor  (low  stress)  2.5 


A 
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The  resulting  Q  value  is  found  to  range  from  seven  to  ten;  the 
rock  masses  modeled  by  the  Distinct  Element  method  all  fall  in  the 
"fair"  category  and  a  need  for  support  is  indicated.  The  indicated 
support  pressures  are  100  KN/M2  for  those  spans  less  than  ten  meters 
in  width  and  150  KN/M2  for  those  spans  greater  than  ten  meters  in 
width.  In  these  calculations  an  excavation  support  ratio  (ESR)  of 
1.0  was  assumed. 

The  support  pressures  calculated  were  compared  to  the  Distinct 
Element  calculated  data  and  the  data  presented  by  Cording  et  al . 

The  results  of  this  comparison  are  presented  in  Figure  5.18(e).  It 
is  readily  apparent  that  the  constant  support  pressures  suggested  by 
Barton,  Lien  and  Lunde's  method  do  not  adequately  describe  the 
trends  of  the  data  calculated  by  the  Distinct  Element  method. 
Furthermore,  the  support  pressures  result  in  total  loads  that  are 
significantly  higher  than  the  data  of  Cording  et  al.  indicate  would 
be  experienced  in  practice. 

The  data  calculated  by  the  Distinct  Element  method  during 
this  investigation  raises  one  serious  objection  to  the  use  of  the 
design  equation  presented  by  Cording  et  al.  Without  exception,  all 
of  the  geometries  modeled  using  the  Distinct  Element  program  had  an 
RQD  value  of  100  percent.  The  use  of  the  design  equation  postulated 
by  Cording  et  al.  would,  in  this  instance,  result  in  a  significant 
underestimate  of  the  amount  of  required  support  force.  The  value  of 
"n"  corresponding  to  an  RQD  value  of  100  percent  is  0.1;  the 
majority  of  the  plotted  data,  both  that  calculated  by  the  Distinct 
Element  method  and  that  reported  by  Cording  et  al.  can  be  seen  to 
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lie  above  the  curve  corresponding  to  an  n  value  of  0.1.  Perhaps 
an  equivalent  RQD  based  upon  seismic  velocities  could  be  calculated 
for  the  Distinct  Element  geometries,  but  it  is  really  outside  the 
scope  of  this  investigation  to  attempt  a  correlation  of  this  type. 

Figure  5.19  presents  a  summary  of  the  required  support  force 
as  a  function  of  span  for  those  masses  investigated  by  the  Distinct 
Element  method;  also  included  in  the  figure  is  the  actual  design 
data  summarized  by  Cording  et  al.  The  curves  indicating  the  trend 
of  the  data  have,  in  this  instance,  been  calculated  using  equation 
5.14.  The  presented  curves  fit  the  data  as  well  as  those  suggested 
by  Cording  et  al.;  however,  in  this  case  the  curves  are  a  function 
of  the  aspect  ratio  of  the  blocks  formed  by  the  jointing.  It  is 
not  immediately  clear  that  there  should  be  a  correlation  between 
RQD  and  aspect  ratio  of  the  blocks.  It  certainly  would  be  feasible 
to  estimate  the  block  aspect  ratio  if  directionally  biased  RQD  data 
were  available,  but  RQD  data  is  not  typically  recorded  in  this 
manner. 

It  was  not  the  intent  of  this  section  to  deduce  a  relationship 
between  RQD  and  the  aspect  ratio  of  the  jointing;  what  was  desired 
was  computationally  based  verification  of  empirical  rock  load 
estimation  schemes.  The  properties  of  the  basic  model  chosen  for 
investigation  indicated  that  a  reasonable  estimate  of  the  upper 
limit  to  the  amount  of  load  to  be  resisted  by  the  support  system 
could  be  calculated  in  terms  of  the  geometric  parameters  of  the 
rock  mass  and  excavation.  The  eventual  results  indicated  that  this 
upper  limit,  the  potential  ultimate  roof  load,  was  actually  the 
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value  for  which  the  supports  should  be  designed.  This  value  could 
be  calculated  by  equation  5.8  or  estimated  in  terms  of  the  aspect 
ratio  of  the  blocks.  Comparison  of  the  results  to  actual  design 
data  indicated  a  high  degree  of  correlation. 
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5.b  The  effect  of  Joint  Interlocking  on  the  Ground  React ion^Ctlrve 

The  rock  mass  models  that  have  been  presented  previously 
possessed  the  characteristics  of  the  basic  model  described  in 
Chapter  4.3.  The  basic  response  characteristic  of  this  model  is 
that  a  triangular  wedge  of  material  separates  from  the  rock  mass 
as  failure  occurs.  Before  the  basic  model  for  study  was  selected 
the  behavior  of  a  number  of  varied  joint  geometries  was  investigated. 
One  of  the  most  striking  factors  to  emerge  from  those  analyses  was 
the  sensitivity  of  the  rock  mass  behavior  to  joint  orientation.  Of 
particular  interest  was  the  observation  that  geometries  initially 
observed  to  be  unstable,  often  stabilize  after  a  finite  displacement. 
This  sensitivity  of  rock  mass  behavior  to  joint  orientation  can  be 
illustrated  for  a  particular  mass  conf igtiration  by  varying  the  joint 
orientation  without  changing  any  of  the  other  parameters.  The 
ground  reaction  curve  provides  the  means  for  quantifying  the  observed 
differences  in  roof  behavior. 

The  basic  rock  mass  geometry  to  be  investigated  is  illustrated 
in  Figure  5.20(a).  The  model  represents  an  excavation  in  a  medium 
with  tv/o  well  defined  joint  sets.  The  major  set  dips  gently  and  is 
continuous;  the  minor  set  is  somewhat  variable  in  orientation, 
crosses  the  major  set  approximately  at  right  angles  on  the  average 
and  is  discontinuous.  Fxposed  in  t.he  upper  right  hand  side  of  the 
excavation  is  an  almost  triangular  v/edge  of  material  bounded  by 
joints  with  a  friction  angle  of  5°;  all  other  joints  have  a  friction 
angle  of  25.5°.  The  triangular  wedge  represents  a  shear  zone  and 
its  presence  can  be  expected  to  govern,  or  at  least  severely 
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Figure  5.20  Ground  reaction  curve  for  a  model 

where  arching  acts  to  stabilize  the 
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influence,  the  behavior  of  the  rock  mass. 

The  eventual  deformed  state  of  the  rock  mass  is  illustrated 
in  Figure  5.20(b).  Immediately  obvious  upon  inspection  of  the 
figure  is  the  fact  that  the  roof  has  stabilized  as  evidenced  by  the 
lack  of  contact  between  the  roof  and  the  leftmost  portion  of  the 
shear  zone.  This  stabilization  is  the  result  of  joint  interlocking 
leading  to  the  formation  of  the  roof  arch  which  acts  to  transfer 
the  loading  forces  to  the  abutments.  The  roof  and  ground  arch  can 
be  seen  in  a  plot  of  contact  vectors  but  tend  to  be  observed  by  the 
plotted  joints.  In  order  that  the  arches  could  be  seen,  the  regions 
corresponding  to  the  high  contact  forces  have  been  outlined  and 
shaded;  the  ground  and  roof  arches  corresponding  to  the  rock  mass 
of  Figure  5.20  are  illustrated  in  Figure  5.21(a). 

A  quantitative  expression  of  this  arching  behavior  is  indicated 
by  the  ground  reaction  curve  which  has  been  separated  into  its 
vertical  and  horizontal  components,  presented  in  Figure  5.20(c). 

The  vertical  component  curve  demonstrates  a  general  decrease,  with 
displacement,  in  the  amount  of  load  to  be  resisted  by  the  supports. 
In  fact,  at  a  deformation  of  0.5m  the  only  vertical  load  on  the 
support  is  the  weight  of  the  leftmost  triangular  portion  of  the 
shear  zone.  This  decrease  in  load  corresponds  to  the  development  of 
the  roof  arch  with  vertical  displacement  and  the  subsequent  transfer 
of  vertical  force  to  the  sides  of  the  excavation.  The  horizontal 
component  indicates  that  at  a  deformation  of  0.5m  the  force  is 
practically  zero.  The  reason  for  this  can  be  seen  by  reference  to 
the  diagram  showing  the  ground  and  roof  arches.  Figure  5.21.  The 
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roof  arch  transfers  load  onto  jointed  blocks  relatively  near  the 
excavation.  The  resultant  of  this  abutment  force  tends  to  push  the 
blocks  back  into  the  rock  mass  and  thus  acts  to  reduce  the  horizontal 
load  on  the  supports.  Note  that  if  the  amount  of  deformation  could 
be  tolerated,  this  roof  would  stand  unsupported. 

The  measurement  of  joint  orientations  in  the  field  is  always 
subject  to  a  high  degree  of  subjectivity;  since  the  joints  can  only 
be  observed  at  outcrops,  local  undulations  can  introduce  a  degree 
of  uncertainty  in  the  measurement  of  the  true  attitude  of  the 
discontinuities.  The  significance  of  accurately  determining  the 
joint  orientations  is  dramatically  illustrated  in  the  second  part 
of  the  example. 

Figure  5.22(a)  illustrates  a  rock  mass  geometry  that  at  first 
glance  appears  identical  to  that  presented  in  Figure  5.20(a). 

Closer  examination  of  the  figure  indicates  that  although  the  major 
joint  sets  have  identical  attitudes  in  both  figures,  there  are 
minor  variations  in  the  orientation  of  the  discontinuous  cross 
jointing.  In  particular,  note  the  small  cross  joint  exposed  on 
the  left  hand  side  of  the  excavation  which  has  been  emphasized 
in  both  figures  by  indicating  its  loaction  by  an  arrow.  It  was 
noted  that  on  the  average  the  cross  jointing  was  approximately 
perpendicular  to  the  main  joint  set.  An  uncertainty  of  five 
degrees  in  the  measured  orientation  of  a  joint  is  not  a  large 
number,  nor  are  variations  in  true  joint  inclination  of  from  five 
to  ten  degrees  uncommon.  Whether  the  variation  between  the  models 
arises  from  errors  in  measurement  or  true  deviations  in  joint 
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attitudes  is  not  significant.  What  is  important  is  the  fact  that 
the  behavior  of  the  two  models  changes  markedly  in  response  to 
relatively  minor  changes  in  joint  orientation. 

One  stage  of  the  deformation  of  the  model  is  illustrated  in 
Figure  5.22(b).  Examination  of  this  figure  indicates  a  more  wide¬ 
spread  disruption  of  the  roof  than  in  the  previous  model  but  even 
more  importantly,  there  is  continuous  contact  through  the  roof  down 
to  the  support. 

Once  again  the  ground  reaction  curve  illustrated  in  Figure 
5.22(c)  and  separated  into  its  vertical  and  horizontal  components 
provides  the  means  to  quantitatively  describe  these  observations. 

The  most  striking  dissimilarity  in  the  ground  reaction  curves  is 
that  the  second  model  is  characterized  by  required  support  loads  that 
do  not  diminish  with  increasing  displacement.  This  roof  is  com¬ 
pletely  unstable  and  requires  an  external  support  system.  The 
required  support  is  relatively  constant  with  deformation  up  to  a 
displacement  of  almost  one  meter. 

The  instability  of  the  roof  is  indicative  of  the  lack  of 
formation  of  the  roof  arch.  This  is  indeed  the  case  as  can  be 
seen  by  reference  to  Figure  5.21(b).  The  magnitude  of  the  force 
to  be  resisted  by  the  supports  is  limited  by  the  full  development 
of  the  ground  arch.  The  lack  of  development  of  the  roof  arch 
prevents  the  mass  from  stabilizing  and  necessitates  the  emplacement 
of  an  external  support  system. 

It  is  of  interest  to  compare  the  actual  support  loads  deter¬ 
mined  from  the  preceeding  analyses  to  the  theoretical  values  as 
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predicted  by  Terzaghi's  method.  The  characteristics  of  the  models 
indicated  that  the  proper  classification  for  these  masses  was 
the  hard  stratified  rock  category.  This  category  is  typified  by 
little  resistance  against  separation  along  strata  boundaries  and 
the  weakening  of  the  strata  by  transverse  joints.  The  moderately 
jointed  rock  category  requires  intimate  block  interlocking  or  healed 
fracture  whereas  the  blocky  and  seamy  category  requires  blocks  which 
are  separated  along  joints  and  imperfectly  interlocked.  The  last 
two  categories  are  actually  the  limiting  cases  for  the  hard 
stratified  rock  category. 

The  sum  of  the  horizontal  and  vertical  components  of  the  ground 
reaction  curves  for  the  two  previous  examples  are  plotted  in  Figure 
5.23.  Also  plotted  in  the  figure  are  the  values  of  the  support 
load  as  predicted  by  Terzaghi's  theory. 

The  constant  value  of  the  total  support  load  as  calculated 
for  hard  stratified  rock  by  Terzaghi's  theory  is  700  kN/m  of  tunnel 
length;  compared  to  the  ground  reaction  curves  in  Figure  5.23  an 
over-design  is  indicated.  For  displacements  less  than  about  0.25m 
the  relative  differences  are  25  percent  and  30  percent  for  the 
failing  roof  and  the  stabilizing  roof  respectively.  For  displace¬ 
ments  greater  than  0.25m  the  relative  difference  is  approximately 
50  percent  for  the  failing  roof  and  increases  with  displacement  for 
the  stabilizing  roof.  The  relative  difference  between  observed 
load  and  predicted  load  is  seen  to  be  significantly  greater  for  the 
two  support  load  values  calculated  by  the  equations  for  blocky  and 
massive  rock  masses,  which  are  800  kN/m  and  350  kN/m  of  tunnel 
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length  respecti vely. 

The  support  load  as  predicted  by  the  method  developed  in  this 
chapter  is  also  indicated  in  Figure  5.23.  Although  the  model  upon 
which  the  method  is  based  involves  only  horizontal  and  vertical 
jointing,  examination  of  Figure  5.21  indicates  that  the  mechanism 
of  load  transfer  in  these  two  examples  is  similar  to  that  observed 
in  the  basic  model .  The  parameters  needed  to  use  the  design  chart 
presented  in  Figure  5.4  are  illustrated  in  Figure  5.23;  the  span  is 
7.5m,  the  block  width  is  3m,  the  block  thickness  is  1.6m  and  the 
weight  density  of  the  material  is  26  kN/m3.  The  potential  ultimate 
load  to  be  resisted  by  the  supports  is  found  to  be  545  kN/m.  This 
value  is  plotted  with  the  ground  reaction  curves  in  Figure  5.23  and 
is  seen  to  agree  quite  well  with  the  required  support  loads 
indicated  by  the  ground  reaction  curves.  For  displacements  less 
than  about  0.25m  the  relative  differences  are  approximately  5%  and 
10%  for  the  failing  roof  and  the  stabilizing  roof,  respectively. 

For  displacements  greater  than  about  0.25m  the  relative  difference 
is  about  15%  for  the  failing  roof  and  increases  with  displacement 
for  the  stabilizing  roof. 


5.6  Summary 
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The  design  of  underground  excavations,  particularly  the 
design  of  the  support  system  is  largely  based  upon  precedent. 

The  summary  of  methods  commonly  used  to  predict  support  load 
pressures  indicated  that  the  earlier  methods  categorized  support 
requirements  by  subjective,  qualitative  descriptions  of  the 
rock  mass.  The  more  recent  methods  have  introduced  some 
measure  of  objectivity  into  the  classifications,  and  strength¬ 
ened  the  data  bases  underlying  the  schemes  by  collecting 
information  from  more  sources.  Theoretically,  at  least,  two 
engineers  with  identical  field  data  should  arrive  at  similar 
conclusions  using  these  classification  schemes. 

One  current  school  of  thought  in  tunnel  design  advocates 
the  philosophy  that  the  behavior  of  an  underground  excavation 
is  governed  by  the  interaction  between  the  mass  and  support 
system.  The  analyses  described  in  this  chapter  had  as  their 
basic  goal  the  multiple  task  of  satisfying  current  thought  on 
tunnel  behavior  while  at  the  same  time  attempting  to  exhibit 
either  verification  or  total  nonagreement  with  the  results  pre¬ 
dicted  by  the  empirical  methods. 

The  method  chosen  to  attack  this  problem  was  to  determine 
the  ground  reaction  curves  or  support-deflection  behavior  of 
numerous  jointed  mass/excavation  configurations.  In  this 
manner  it  was  hoped  to  demonstrate  that  the  Distinct  Element 
model  solutions  would  always  predict  support  pressures  that 
were  significantly  lower  than  those  calculated  by  the  empirical 
methods,  since  the  predictions  of  these  methods  are  based  upon 
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supporting  the  total  dead  weight  of  a  specified  volume  of 
rock.  For  the  basic  geometry  selected  for  the  study,  the 
weight  of  the  material  for  which  it  is  kinematically 
possible,  neglecting  any  supporting  effects,  to  move  into  the 
excavation,  and  thus  load  the  supports  is  easily  calculated. 

It  was  expected  that  this  potential  ultimate  roof  load  would 
provide  a  rarely  attained  upper  limit  to  the  necessary  value 
of  support  resistance  indicated  by  the  analyses. 

Both  of  these  assumptions  were  found  to  be  incorrect; 
in  fact,  the  data  indicate  that  the  value  for  which  the 
supports  should  be  designed  is  given  by  the  potential  ultimate 
roof  load.  While  this  value  is  typically  noticeably  smaller 
than  the  support  loads  predicted  by  the  empirical  design 
schemes,  there  is  not  enough  of  a  difference  to  conclude  that 
it  has  been  demonstrated  that  the  use  of  the  empirical  methods 
results  in  an  overdesign. 

To  understand  the  reason  for  the  similarity  of  results, 
the  characterization  of  the  joints  must  be  examined.  The 
joints  used  at  the  present  time  in  the  Distinct  Element  method 
are  smooth  planar  structures  which  have  strength  only  through 
frictional  resistance.  The  joints  do  not  possess  cohesion. 
Cohesive  resistance  is  more  significant  in  the  initial  strength 
of  a  rock  mass  than  in  determining  the  failing  behavior.  Not 
much  is  lost  in  the  analyses  of  failing  rock  masses  if  no 
cohesion  is  assumed.  The  joints  also  are  not  characterized 
by  dilatancy.  The  dilatancy  properties  of  real  joints 
contribute  additional  strength  through  volume  increase 
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as  shearing  occurs.  Neglecting  the  dilatancy  of  the  joints  must 
result  in  a  conservative  estimate  of  the  strength.  Additionally, 
in  real  excavations  there  is  another  dilatancy  caused  by  the  volume 
of  rock  surrounding  an  excavation  moving  radially  inward.  This 
mass  dilatancy  also  acts  to  increase  the  normal  force  acting  on 
the  joints  and  thus  increase  the  mass  strength.  The  Distinct 
Element  modeled  geometries  were  designed  so  that  only  roof 
deflections  were  possible  and  thus  neglected  this  mass  dilatancy. 

Another  limitation  imposed  upon  the  analyses  described  in  this 
chapter  is  concerned  with  the  joint  stiffness.  In  order  that  the 
program  could  be  implemented  on  a  mini-computer,  many  simplifications 
needed  to  be  made;  one  of  these  was  the  use  of  "integer"  arithmetic 
with  the  burden  of  watching  the  signs  and  decimal  points  placed 
upon  the  programmer  (Cundall ,  1974).  One  significant  consequence 
of  this  was  that  the  joint  stiffness  turned  out  to  be  a  function  of 
the  problem  size.  The  range  of  joint  stiffness  that  could  be 
investigated  was  thus  limited.  The  approximation  of  the  horizontal 
stress  field  as  a  constant  load  would  negate  the  effects  of  varying 
the  joint  stiffness  in  any  case. 

It  must  be  emphasized  that  the  approximations  just  described 
are  not  a  consequence  of  the  Distinct  Element  formulation,  but  of 
the  mini-computer  configuration  of  the  program.  These  approxima¬ 
tions  would  not  need  to  be  made  if  the  program  ran  in  an  environment 
of  larger  memory  on  a  computer  possessing  a  floating  point  processor. 

The  implication  of  the  results  presented  in  this  chapter  can 
thus  be  interpreted  in  one  of  two  ways.  By  neglecting  dilatancy. 


a  correlation  was  found  between  the  required  support  force  and  the 
potential  ultimate  roof  load.  This  support  force  was  also  found  to 
correlate  fairly  well  with  the  empirical  methods  particularly  those 
of  Stini  and  Cording  et  al.  If  it  can  be  inferred  that  the  failure 
to  incorporate  the  dilatancy  properties  of  real  joints  in  the 
analysis  leads  to  a  value  of  the  mass  strength  that  is  too  low,  then 
it  can  be  concluded  that  the  potential  ultimate  roof  load  and  thus 
the  empirical  methods  represent  a  conservative  value  of  design  load. 

The  second  interpretation  also  follows  from  the  properties  of 
the  joints.  It  is  reasonable  to  expect  that  the  dilatancy  properties 
of  joints  would  play  a  minor  role  in  situations  of  relatively  low 
stress.  It  can  thus  be  concluded  that  dimensioning  the  supports  to 
resist  the  potential  ultimate  roof  load,  or  using  one  of  the 
empirical  schemes  should  give  the  best  results  in  problems  involving 
low  stresses. 
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CHAPTER  VI 

SUMMARY,  CONCLUSIONS  AND  SUGGESTIONS  FOR  FURTHER  DEVELOPMENT 

Before  summarizing  the  results  of  this  investigation,  it 
is  imperative  that  a  few  sentences  be  devoted  to  defining  the 
"ground  rules",  so  to  speak,  which  must  govern  the  discussion 
which  follows  immediately.  The  limitations  placed  upon  joint 
behavior  cannot  be  overemphasized.  The  joints  within  the  models 
utilized  in  this  study  were  smooth  and  planar;  any  shear  resisting 
strength  of  the  joint  was  due  solely  to  frictional  resistance 
developing  as  sliding  occurred.  The  joints  did  not  possess  cohesive 
strength;  as  the  cohesive  properties  are  more  important  in  determin¬ 
ing  the  initial  strength  of  the  mass,  it  was  felt  that  little  was 
lost  by  modeling  failing,  jointed  masses  by  surfaces  having  no 
cohesive  strength.  The  same  cannot  be  said  for  the  fact  that  the 
joints  utilized  did  not  possess  dilatancy  characteristics.  It  is 
possible  that  the  inclusion  of  joint  dilatancy  could  significantly 
affect  the  resultant  mass  strength  and  thus  the  outcome  of  many  of 
the  analyses  reported  in  this  dissertation. 

A  complete  summary  of  the  results  of  each  section  is  presented 
at  the  end  of  that  section;  the  summary  of  results  presented  here 
will  thus  be  relatively  brief. 

One  of  the  main  goals  of  this  dissertation  was  to  demonstrate 
that  the  behavior  of  jointed  rock  as  predicted  by  the  Distinct 
Element  method  was  realistic.  The  approach  taken  to  demonstrate  the 


VI-2 

validity  of  the  Distinct  Element  method  was  based  upon  comparison 
to  solutions  commonly  used  to  describe  the  behavior  of  jointed  rock 
masses.  The  majority  of  the  solution  methods  chosen  for  comparison 
were  based  upon  Limit  Equilibrium  principles;  a  basis  for  selection 
for  comparison  was  a  subjective  criterion  of  how  well  the  solution 
described  the  behavior  of  the  model.  Thus  those  solutions  selected 
for  comparison  are  typically  simple  and  the  resultant  behavior  can 
be  intuitively  predicted.  In  all  of  the  comparisons  presented  in 
Chapter  3  as  well  as  others  presented  throughout  the  remainder  of 
the  dissertation,  the  Distinct  Element  calculated  behavior  was  seen 
to  correlate  quite  well  with  the  theoretical  solutions. 

The  second  portion  of  the  dissertation  described  the  results 
of  numerous  analyses  of  the  behavic  )f  jointed  masses  by  use  of 
the  Distinct  Element  method.  The  goals  of  these  analyses  were  to 
determine  those  parameters  to  which  the  stability  of  an  excavation 
in  jointed  rock  was  most  sensitive  and  to  investigate  the  effects 
of  support  interaction  in  jointed  media  in  an  attempt  to  determine 
if  a  rational  basis  existed  for  the  continued  use  of  empirical 
design  schemes. 

The  subjects  of  Chapter  4  were  an  investigation  of  the  force 
distributions  surrounding  excavations  in  jointed  rock  masses  and 
an  examination  of  the  stability  of  unsupported  excavations.  The 
topics  were  approached  through  numerous  models  in  which  the  input 
parameters  were  varied  and  the  resultant  behavior  of  the  model 
observed.  The  behavior  of  the  models  was  illustrated  by  means  of 
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contact  force  distributions  and  block  displacements  plotted  on  the 
graphics  terminal.  The  behavior  of  the  models  was  seen  to  be 
governed  by  force  transfer  due  to  the  development  of  arches 
following  block  rotations.  The  stability  of  an  excavation  was  seen 
to  be  sensitive  to  the  horizontal  force,  the  joint  friction 
coefficient  and  the  spacing  of  the  vertical  joints.  A  linear  arch 
analysis  neglecting  crushing  of  the  blocks  and  lateral  stiffness  of 
the  abutments  was  compared  to  the  behavior  as  observed  by  use  of  the 
Distinct  Element  method.  Good  agreement  between  theory  and  observa¬ 
tion  were  noted  for  single  layer  models.  The  theory  did  not  account 
for  the  presence  of  additional  shear  resistance  available  in  multi¬ 
layer  models  and  thus  there  was  a  poor  correlation  between  theory 
and  observed  data. 

The  investigations  described  in  Chapter  5,  on  the  other  hand, 
were  concerned  with  the  behavior  of  excavations  which  required 
externally  applied  support  to  maintain  stability.  The  investigations 
were  concerned  with  the  interaction  between  the  supports  and  the 
jointed  mass  and  formed  the  basis  for  a  comparison  with  different 
empirical  support  load  prediction  schemes.  The  required  supporting 
force  as  predicted  by  the  Distinct  Element  method  was  obtained 
through  the  use  of  ground  reaction  curves.  These  Distinct  Element 
calculated  support  forces  were  then  compared  to  the  support  forces 
predicted  by  the  empirical  methods.  Incorporated  within  this 
comparison  was  actual  support  design  data  for  several  underground 


excavations. 
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The  methods  which  best  describe  the  combined  Distinct  Element 
calculated  data  and  design  data  were  seen  to  be  the  methods  of 
Cording  et  al.  and  the  method  based  upon  the  potential  ultimate 
roof  load  described  in  Chapter  5.  It  should  come  as  no  surprise 
that  Cording  et  al.'s  method  fits  their  data;  it  is  significant  that 
Cording  et  al's  method  fits  the  Distinct  Element  calculated  data  and 
that  the  support  load  predictions  based  upon  analyses  performed 
using  the  Distinct  Element  method  fit  the  field  data  as  well  as  is 
seen.  As  was  noted  in  the  summary  of  Chapter  5,  the  incorporation 
of  dilatancy  behavior  in  the  joints  of  the  Distinct  Element  model 
could  significantly  alter  the  results  of  these  comparisons. 

The  results  of  the  analyses  of  excavations  jointed  masses 
suggest  that  the  Distinct  Element  method  deserves  consideration  for 
use  in  the  design  of  underground  excavations.  There  is  not  meant  to 
be  an  implication  that  all  of  the  information  needed  to  specify  a 
support  system  for  an  underground  excavation  can  be  obtained  by  an 
application  of  the  Distinct  Element  method.  It  is  only  suggested 
that  the  Distinct  Element  method  be  used  as  one  of  the  many  tools 
used  in  the  design  of  an  underground  excavation. 

It  is  tempting  to  conclude  that  a  viable  design  technique  would 
be  to  analyze  a  given  problem  neglecting  the  dilatant  properties 
of  the  joints;  using  this  approach  it  might  be  argued  that  a  safety 
factor  would  be  built  into  the  analysis.  However,  until  the  joint 
dilatancy  properties  are  fully  understood  it  must  be  recognized  that 
there  would  be  a  good  deal  of  uncertainty  as  to  whether  or  not  the 
safety  factor  would  be  one  or  ten  or  even  one  hundred. 
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The  data  which  should  routinely  be  collected  during  a 
preliminary  site  investigation  can  be  utilized  in  the  Distinct 
Element  method  to  provide  preliminary  design  information.  This 
data  would  likely  include  preliminary  information  on  joint  spacing, 
orientation  and  condition  as  well  as  estimates  of  the  horizontal 
stress  state.  Using  the  Distinct  Element  method,  it  could  quickly 
be  determined  if  the  excavation  would  be  stable  or  require  light  or 
heavy  supports.  Variations  of  these  input  parameters  would  result 
in  a  good  idea  of  how  sensitive  the  excavation  stability  would  be  to 
errors  in  the  assumed  values  of  the  input  parameters.  This  analysis 
could  be  continuously  updated  as  data  from  exploratory  drilling 
become  available  and  further  refinements  could  accompany  the  excava¬ 
tion  progress. 

This  type  of  design  technique  is  not  limited  to  tunnels;  the 
same  data  and  same  procedure  are  equally  applicable  to  the  analysis 
of  slope  problems  or  foundation  problems. 

These  are  several  reasons  that  suggest  that  the  method  just 
described  is  particularly  applicable  to  a  class  of  problems  which 
could  be  best  described  as  low  stress  problems.  The  very  nature  of 
the  present  formulation  of  the  Distinct  Element  method  makes  it 
imperative  that  it  only  be  applied  to  problems  where  the  behavior 
of  the  mass  is  controlled  by  the  jointing;  this  is  a  characteristic 
of  problems  that  are  near  or  at  the  surface.  A  low  stress  problem 
also  exists  where  the  frictional  resistance  of  the  joints  is  very 
low,  perhaps  due  to  the  presence  of  clay  seams.  The  investigations 
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described  in  Chapter  4  indicated  that  the  material  within  the  zone 
of  potential  finite  displacement  also  typically  fit  the  requirements 
of  low  stress  behavior,  although  this  behavior  can  be  prevented  by 
the  presence  of  high  horizontal  stresses. 

The  conclusions  to  this  dissertation  must  also  address  the 
problems  encountered  due  to  the  mini-computer  configuration  of  the 
present  version  of  the  Distinct  Element  program.  It  should  be  noted 
from  the  outset  that  these  are  not  criticisms  of  the  Distinct  Element 
method  itself,  but  of  the  equipment  upon  which  the  program  used  in 
this  study  presently  runs.  Foremost  of  these  criticisms  must  be 
the  time  required  for  a  problem  solution.  The  relatively  slow 
computational  speed  of  the  mini-computer  coupled  with  the  lack  of 
a  floating  point  processor  often  led  to  problem  solution  times 
which  could  only  be  tolerated  by  someone  working  toward  a  Ph.D. 
Computational  times  approximately  one-twentieth  of  those  encountered 
during  this  study  could  easily  be  realized  on  a  more  powerful 
computer.  However,  lost  by  this  implementation  would  be  one  of 
the  most  powerful  capabilities  of  the  Distinct  Element  program.  The 
insight  into  the  behavior  of  a  jointed  mass  gained  by  examining 
contact  force  distributions  at  each  time  step  is  often  quite 
revealing.  This  can  realistically  only  be  done  on  a  dedicated 
computer. 

The  amount  of  computing  time  required  and  the  limited  memory 
size  of  the  mini-computer  also  acted  to  limit  the  size  of  the 
problem  that  could  be  investigated.  These  limitations  often  resulted 
in  simplified  models  such  as  those  used  to  determine  the  ground 
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reaction  curves  presented  in  Chapter  5.  It  was  noted  in  Chapter  5 
that  the  idealizations  could  have  masked  an  important  behavior 
response  due  to  inward  movement  of  the  side  walls  accompanying  the 
roof  deflections.  This  question  cannot  be  resolved  until  the 
Distinct  Element  method  is  configured  on  a  system  possessing  a 
greater  amount  of  memory. 

One  of  the  underlying  goals  of  this  dissertation  was  concerned 
with  the  utilization  of  a  computer  interactive  graphics  approach  to 
an  engineering  problem.  One  particular  phase  of  the  project  was 
concerned  with  developing  the  graphic  interaction  capabilities  of 
the  present  version  of  the  Distinct  Element  program  to  the  point 
where  an  untrained  user,  particularly  one  having  minimal  familiarity 
with  computing  techniques,  could  sit  down  and  use  the  program  to 
solve  simple  problems.  The  solution  of  this  problem  was  to  incorpo¬ 
rate  a  great  deal  of  explanatory  material  within  the  program.  It  is 
difficult  to  assess  the  success  of  this  portion  of  the  project  in 
other  than  a  subjective  manner.  It  did,  however,  seem  as  though 
the  majority  of  those  using  the  program  for  the  first  time  encoun¬ 
tered  little  difficulty. 

Also  within  the  defined  goals  of  this  dissertation  was  the 
problem  of  developing  a  proper  perspective  as  to  the  applicability 
of  the  Distinct  Element  method.  The  conclusions  drawn  are  subjective 
and  incorporate  material  not  described  in  this  dissertation.  The 
class  of  problems  most  suitable  to  analyses  by  the  Distinct  Element 
method  is  characterized  by  relatively  low  stress  conditions  and 
behavior  which  is  joint  controlled.  Typical  examples  of  problems 
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meeting  these  requirements  involve  slope  stability,  shallow 
excavations  and  foundation  behavior.  The  degree  of  unconfinement 
characteristic  of  these  problems  ensures  that  the  behavior  of  these 
types  of  problems  will  be  joint  controlled.  However,  the  possibility 
of  fracturing  of  blocks  due  to  local  stress  concentrations  must  not 
be  overlooked.  It  is  reasonable  therefore  to  use  the  analysis 
obtained  by  the  Distinct  Element  method  in  conjunction  with  an 
elastic  analysis  used  to  determine  zones  of  stress  concentration 
and  thus  potential  fracture.  These  potential  fracture  planes  can 
then  be  incorporated  within  the  Distinct  Element  method  to  determine 
any  possible  effect. 

The  dividing  line  between  low  stress  problems  and  high  stress 
problems  is  not  clearly  defined.  It  has  been  noted  that  the  zone  of 
material  immediately  adjacent  to  an  excavation  is  under  relatively 
low  stress  conditions;  due  to  the  action  of  the  ground  arch  the 
material  surrounding  the  destressed  zone  experiences  much  higher 
stresses.  The  logical  solutions  to  problems  of  this  type  would  be 
either  a  coupled  elastic-Distinct  Element  program  or  a  modified 
Distinct  Element  program  which  incorporated  elastic  rather  than 
rigid  blocks. 

It  is  clear  from  the  work  typified  by  Daemen  (1975)  that 
highly  fractured  rock  can  be  modeled  by  a  continuum  representation 
incorporating  residual  strength  properties.  It  was  not  possible 
within  the  context  of  the  present  study,  given  the  limited  number 
of  blocks,  to  determine  that  point  at  which  the  behavior  of  broken 
rock  ceases  to  be  governed  by  the  directionality  imposed  by  the 


joints  and  can  thus  be  represented  as  isotropic.  The  work  described 
by  Bray  (1966)  does,  however,  furnish  at  least  a  guideline.  Bray 
examined  the  behavior  of  jointed  masses  subjected  to  an  arbitrarily 
oriented  stress  field.  His  results  indicated  that  six  independently 
oriented  joint  sets  were  required  before  the  behavior  of  a  jointed 
mass  approximated  that  of  a  granular  isotropic  material.  The 
implication  here  is  that  if  the  material  is  highly  fractured  or 
if  the  stress  conditions  are  sufficient  to  fracture  the  rock  it  is 
probably  best  to  adopt  a  continuum  approach. 

The  research  undertaken  for  this  dissertation  indicated  several 
areas  where  further  development  of  the  program  could  be  beneficial, 
and  suggested  an  area  of  research  that  could  prove  to  be  most 
rewarding. 

The  first  steps  that  need  to  be  taken  in  any  further  development 
of  the  Distinct  Element  program  require  faster  computational  times 
and  a  significantly  larger  computer  memory.  The  results  of  Chapter  5 
were  based  upon  idealized  geometries;  the  typical  amount  of  mini¬ 
computer  time  required  to  generate  one  of  the  ground  reaction  curves 
often  exceeded  two  days.  This  amount  of  time  simply  cannot  be 
tolerated  if  the  program  is  to  be  accepted  as  a  design  tool.  The 
shortcomings  of  the  limited  number  of  blocks  were  also  indicated. 

The  solution  to  both  of  these  problems  is  the  implementation  of  the 
model  on  a  larger,  faster  computer. 

The  most  promising  areas  of  further  research  identified  by  this 
dissertation  are  concerned  with  the  continued  investigation  of  the 
behavior  of  excavations  in  jointed  rock.  Foremost  of  these  should 
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logically  be  the  incorporation  of  dilatant  behavior  of  the  joints. 
Additionally,  an  implementation  on  a  larger  computer  would  allow 
more  blocks  per  problem  and  thus  a  more  accurate  representation  of 
an  underground  excavation.  This  implementation  would  also  allow 
the  incorporation  of  a  stiffness  representation  of  a  support  system. 
This  would  also  lead  to  a  better  description  of  the  support  system/ 
mass  interaction.  It  is  still  felt  that,  if  at  all  possible,  this 
implementation  should  take  place  on  a  dedicated  computer. 

The  area  of  research  not  covered  by  this  investigation  which 
holds  promise  for  a  future  study  is  a  detailed  comparison  of  the 
results  of  observations  and  careful  measurements  of  physical  models 
and  comparable  model  behavior  calculated  by  the  Distinct  Element 
method.  This  research  could  form  the  basis  for  the  incorporation 
of  dilatant  behavior  in  the  Distinct  Element  method  as  well  as 
providing  additional  verification  of  the  Distinct  Element  method 
through  carefully  controlled  physical  testing.  In  fact,  it  is  easy 
to  visualize  a  research  program  that  is  highly  complementary  in 
nature,  utilizing  a  sort  of  "feedback"  system.  The  Distinct  Element 
method  would  be  useful  in  the  interpretation  of  the  observed  data 
from  the  physical  model  while  at  the  same  time,  the  physical  model 
would  help  to  refine  the  equations  used  in  the  Distinct  Element 


formulation. 
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APPENDIX  A 


THE  DISTINCT  ELEMENT  METHOD 

The  Distinct  Element  method  is  a  computer  model  described  by 
Cundall  (1971a)  that  simulates  the  behavior  of  accembiages  0f  rock 
blocks.  The  version  of  the  program  described  by  Cundall  (1974) 
forms  the  basis  for  the  work  described  in  this  thesis.  Significant 
features  of  the  program  described  by  Cundall  (1974)  include  arbi¬ 
trary  block  shapes,  unlimited  block  displacements  and  rotations, 
and  a  high  degree  of  user  interaction.  The  interaction  requires  a 
dedicated  computer  and  centers  around  a  graphic  terminal  with  a 
cross-hair  cursor  input  capability.  The  system  enables  the  user  to 
draw  a  picture  of  the  problem  on  the  terminal  and  watch  the  subse¬ 
quent  movement  of  the  blocks  as  gravity  and  other  loads  are  applied. 

A  very  thorough  presentation  of  the  algorithms  implemented  in 
the  program,  as  well  as  a  description  of  the  required  hardware,  is 
given  by  Cundall  (1974).  The  purpose  of  this  appendix  is  to  briefly 
summarize  Cundall's  description  of  the  program  and  note  the  signif¬ 
icant  additions  to  the  formulation.  Little  would  be  gained  by  re¬ 
peating  Cundall's  descriptions  since  his  report  is  readily  available. 

The  calculation  cycle  used  in  the  program  is  similar  to  the 
one  used  in  most  explicit  finite  difference  calculation  schemes. 
Forces  arise  due  to  the  deformations  that  occur  at  corner-to-edge 
contact  points.  In  each  time  step  of  the  iteration  the  incremental 
shear  and  normal  displacements  for  a  given  contact  point  are 
calculated  using  the  incremental  translational  and  rotational 


displacements  of  the  two  blocks  in  contact.  The  new  shear  and 
normal  forces  acting  on  the  blocks  are  then  calculated  from  force- 
displacement  relationships.  All  of  the  contact  forces  for  a  given 
block  are  then  resolved  into  an  equipollent  set  of  forces  including 
a  moment  acting  on  the  block. 

The  force  and  moment  sums  acting  on  each  block  are  used  to 
compute  translational  and  rotational  accelerations  for  the  block. 

The  accelerations  are  integrated  numerically  to  obtain  block 
velocities  which  are  then  integrated  to  give  the  block  displace¬ 
ments.  With  this  new  set  of  block  displacements  the  iteration  cycle 
can  begin  again.  Note  that  if  the  force  and  moment  sums  acting  on 
a  block  are  zero,  there  will  be  no  acceleration  of  the  block;  this 
is  precisely  how  the  program  models  an  equilibrium  state. 

Before  the  displacements  and  accelerations  of  the  blocks  can 
be  calculated,  however,  some  method  of  defining  the  block  geometries 
must  be  implemented.  The  blocks  could  be  treated  as  "elements" 
related  to  defined  nodal  points  as  is  done  in  conventional  Finite 
Flement  analyses.  The  input  would  thus  consist  of  numerous  cards 
containing  nodal  point  and  element  data;  anyone  who  has  attempted 
this  to  define  a  mesh  for  a  Finite  Element  analysis  is  acutely 
aware  of  the  frustration  that  results  from  trying  to  "debug"  such 
a  mesh.  The  approach  adopted  by  Cundall  (1974)  and  implemented  in 
the  program  used  for  the  research  described  in  this  dissertation 
overcomes  the  difficulties  associated  with  mesh  generation.  The 
actual  rock  mass  geometry,  as  defined  by  the  jointing,  is  drawn 
on  the  screen  of  the  CRT.  All  calculations  necessary  to  determine 
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the  significant  coordinates  are  thus  performed  by  the  program.  The 
structure  of  the  program  is  governed  by  the  size  limitations  imposed 
by  the  mini-computer;  the  actual  program  consists  of  three  overlays 
which  correspond  to  the  three  main  calculation  phases  of  the  program. 

Phase  1  of  the  program  governs  the  interactive  dialog  by  which 
the  lines  defining  the  block  geometry  are  created.  A  flow  chart  for 
this  section  of  the  program  is  given  by  Cundall  (1974);  the  flow  chart 
is  essentially  valid  for  the  present  configuration  of  the  program. 

Care  was  taken  so  that  the  changes  to  Phase  1,  which  will  be 
described  presently,  did  not  alter  the  program  sequence  or  execution. 

The  two  main  changes  made  in  the  Phase  1  section  of  the  program 
are  concerned  with  the  format  of  the  data  input  and  the  storage  and 
subsequent  retrieval  of  data  files.  Whereas  the  initial  version  of 
the  program  used  only  the  cross-hair  cursor  of  the  CRT  for  input, 
the  present  version  of  the  program  uses  a  graphic  tablet 
("digitizer")  and  a  numeric  input  scheme  as  well.  The  three 
routines  are  virtually  identical  and,  in  fact,  use  only  one  set  of 
coding.  Whichever  routine  is  active  at  a  given  time  is  noted  by  the 
value  of  the  variable  KODE:  KODE  =  -1  signifies  that  the  numeric 
input  routine  is  selected;  KODE  =  1  signifies  that  the  graphic 
tablet  is  in  use;  and,  KODE  =  0  signifies  that  the  cross-hair  cursor 
is  being  used  for  input.  All  three  input  methods  may  be  used  for  a 
single  problem.  Potential  users  wishing  to  implement  the  modified 
version  of  the  program  need  only  supply  software  for  the  graphic 
tablet  (Subroutine  DIGIT).  It  should  be  noted  that  the  numeric 
input  routine  contains  a  scale  factor.  In  this  manner,  actual  field 


coordinates  may  be  used  as  input,  and  divided  so  that  they  meet  the 
program  requirements  (see  Cundall,  1974). 

The  second  major  change  in  the  Phase  1  program  enables  users 
to  store  data  files  consisting  of  line  segments  and  coordinate 
data.  To  do  this,  the  common  blocks  are  written  to  or  read  from 
the  Line  tape  units.  The  operation  is  straight  forward;  line  57  of 
the  program  (see  Appendix  C)  LIST  (3)  =  13286  is  simply  a  "password" 
to  prevent  garbage  from  being  read  as  a  data  file. 

The  second  overlay.  Phase  2,  is  unchanged  from  Cundall's  (1974) 
original  listing.  This  is  the  routine  that  scans  the  line  segments 
created  in  Phase  1  of  the  program  and  converts  the  line  segments 
to  closed  areas.  A  flow  chart  for  this  routine  is  presented  by 
Cundall  (1974). 

The  first  two  overlays  of  the  program  are  written  in  Fortran; 
to  conserve  memory,  the  third  overlay  is  written  in  Data  General 
assembly  language.  The  only  serious  drawback  caused  by  this  is 
that  the  present  version  of  the  program  will  only  run  on  a  Data 
General  computer. 

Most  of  the  changes  made  to  the  program  were  concerned  with 
the  third  overlay.  Phase  3.  This  section  of  the  program  contains 
the  coding  necessary  to  compute  the  block  accelerations  and 
displacements.  Detailed  descriptions  of  the  modifications  will  be 
noted  in  the  descriptive  summary  of  the  Phase  3  subroutines  to  be 
presented  shortly;  the  main  calculation  cycle,  however,  remains 
essentially  unchanged. 

The  equations  used  in  the  main  calculation  cycle  are  summarized 


on  this  and  the  following  pages  and  are  taken  directly  from 
Cundall  (1974). 


block  i 


(x‘,y‘)  =  global  co-ordinates 
of  block  i  centroid 


(xJ,yJ)  =  global  co-ordinates 
of  block  j  centroid 

(xc,yc)  =  global  co-ordinates 
of  contact  point  c 


Note:  All  forces,  displacements 
and  angles  are  shown 
acting  in  the  positive 
direction. 


Au'  =  Au‘-  Au^  +  AS*(xc-  xl)  -  A6(xc-  xJ ) 
Au*=  Aux-  AuJx-  A0l(yc -  yl )  +  A0J(yc-  yJ) 


Au j  =  Au^cosa  +  Au'sina 
Au‘  =  Au'cosa  -  Au'sina 


} 


(2) 


1 
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Equations  (continued) 


Shear  ar.d  normal 


} 


Ft  :=  Ft  -  Au'.k 

Ff  :=  Pi  +  Au‘.ks 

Dt  =  -Auc„.K 

Dl  =  Au‘.Ks 

Hie  above  equations  are  subject  to  the 
following  conditions: 

*  If  Ft  <  0  , 

set  Ft  =  0  ,  D 
Fct  =  0  ,  D 


(Dashpot  forces,  D 
act  in  same  manner 
as  F  forces) 


(3) 


)t  =  0  1 
Jj  =  0  j 


(no-te.nsion) 


-  if  |f;i  >  u.f., 

set  Fj  :=  u.Ft.sign[?t]  (friction  law) 
=0  (no  damping  when  sliding) 

(where:  k»  =  normal  stiffness, 
k$  =  shear  stiffness, 

K»  =  normal  dashpot  constant, 

K,  =  shear  dashpot  constant.) 


(F,‘  +D,c)cosa  +  (Ft  +  DtJsirP 

— VCJ 


w 


F,w  =  applied  x  load 
=  applied  y  load 
=  gravity  force 


F^i, 

Fjj-* 


.  body 
forces 


-  ix 

=  Ie{Ft'<x‘  -  *')  -  FtV  -  y1)} 


Fx  lotxi 
Ftjloa^ 


***** 


(5 


(T)  The  formulation  of  equation  5  differs  slightly  when  joint  water 
pressure  is  present  (see  page  A-22). 


Equations  (continued) 


from  forces,  by  numerical 
integration 


and  absolute  displacements 
derived  from  velocities. 


At  this  point  the  calculation  cycle  is  complete  since  the 
incremental  displacements  needed  by  equation  1  on  page  A-5  have 
been  calculated.  A  complete  discussion  of  the  relationships  used 
in  equations  1  -  7  is  given  by  Cundall  (1974).  The  algorithms  used 
to  derive  the  coordinates  and  angles  used  by  equations  1  and  2 
are  al so  presented. 
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As  a  prerequisite  to  the  discussion  of  the  Phase  3  subroutines, 
a  brief  discussion  of  the  data  structures  is  necessary.  The 
problem  of  unlimited  block  movement  and  the  potential  for  any 
given  block  to  contact  any  other  block  requires  an  efficient  scheme 
of  memory  management.  Simple  sequential  arrays  are  not  sufficient 
for  the  task  at  hand  as  it  requires  that  the  words  in  the  memory 
be  subject  to  additions  and  deletions  of  data  while  at  the  same 
time  the  amount  of  unused  memory,  memory  reshuffling  and  processor 
time  must  be  kept  to  a  minimum.  The  solution  implemented  by 
Cundall  to  alleviate  the  difficulties  of  handling  large,  sparse 
data  arrays  was  borrowed  from  the  techniques  of  manipulating  infor¬ 
mation  structures  by  computer.  The  data  structures  rely  heavily 
on  the  techniques  of  list  processing  whereby  the  data  is  stored  in 
short  lists  in  arbitrary  computer  memory  locations  with  one  word  of 
the  list  containing  information  sufficient  to  locate  subsequent 
data.  The  entirety  of  the  data  can  thus  be  imagined  to  be  one  long 
list  comprised  of  several  short  lists  strung  together  through  the 
memory.  The  reader  who  requires  exact  details  concerning  the 
implementation  of  the  list  processing  techniques  is  advised  to 
consult  Cundall  (1974)  pages  62  -  72.  All  that  will  be  presented 
herein  is  a  brief  overview  of  the  list  processing  implementation 
and  a  description  of  the  format  of  the  data  structures  used  in  the 
present  formulation  of  the  program. 

The  storage  requirements  for  a  given  block  model  due  to  the 
problem  of  allowing  any  block  to  touch  any  other  block  are  overcome 
by  a  list  scheme.  All  block  corners  are  classified  into  coarse 
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boxes  covering  the  screen  area.  When  the  program  needs  to  know  if 
a  given  edge  is  near  any  block  corners,  it  is  only  necessary  to 
scan  the  area  delimited  by  those  boxes  encompassing  the  edge.  As 
the  blocks  move  as  a  result  of  forces  acting  on  them,  their 
corners  are  reclassified  into  new  boxes  if  necessary.  This  boxing 
scheme  turns  out  to  be  very  efficient  as  only  a  small  amount  of 
computer  time  is  required. 

It  is  impossible  to  allocate  sufficient  memory  space  for  all 
possible  block  to  block  contacts  -  the  space  required  is  far  too 
great.  The  only  viable  solution  is  a  method  to  allocate  memory  as 
it  is  needed  by  the  formation  of  a  new  contact  and  return  the 
memory  to  a  pool  of  available  memory  when  it  is  no  longer  needed. 

A  scheme  of  linked  memory  allocation  provides  such  a  solution  and 
is  implemented  in  the  Distinct  Element  program. 

In  the  program  a  fixed  group  of  words  is  reserved  as  a  set  of 
pointers;  each  word  corresponds  to  a  given  block.  Each  pointer 
contains  the  address  of  the  start  of  a  linked  list  of  all  contacts 
for  the  block  associated  with  that  pointer.  Another  list  is  used 
to  store  all  of  the  memory  which  became  "dead"  once  a  contact  was 
broken.  When  a  new  contact  is  detected  by  the  program  the  program 
first  checks  the  list  of  dead  contact  space.  If  space  exists  it 
is  used,  otherwise,  previously  unused  memory  at  the  high  end  of 
core  is  allocated.  The  following  pages  describe  in  detail  how  the 
data  is  organized  in  the  computer  memory.  The  first  page  following 
shows  a  total  memory  map  illustrating  the  four  main  parts  of  the 
memory.  These  are: 
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a)  the  program 

b)  the  sets  of  data  pertaining  to  each  block 

c)  the  pointers  and  data  necessary  for  the  "boxing" 
scheme,  and 

d)  the  data  sets  and  pointers  pertaining  to  the  contact 
between  blocks 

The  subsequent  pages  illustrate  expanded  forms  of  groups  b,  c,  and  d 
to  show  in  detail  the  structure  of  each  list. 

The  present  formulation  of  the  program  utilizes  another 
linking  scheme  to  store  the  data  pertinent  to  applied  joint  water 
pressures  when  they  exist.  The  format  of  data  lists  used  in  this 
scheme  is  also  illustrated.  There  are  two  other  linked  lists 
threaded  through  the  memory  that  must  be  mentioned;  these  are  the 
"empty"  lists  used  to  reference  previously  used  memory  space  that 
is  now  free  for  re-use.  Memory  is  made  available  whenever  a 
block  contact  is  broken  or  when  a  pressure  segment  is  deactivated. 
The  two  empty  lists  and  the  joint  pressure  lists  are  referenced  by 
global  memory  pointers  and  make  use  of  whatever  memory  is  available. 
Adding  or  reclaiming  a  group  of  words  from  the  empty  lists  is 
simply  a  matter  of  reshuffling  the  link  bits  and  is  illustrated  by 
tundal 1  (1974). 
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Total  r.-crror.'  mar:  for  Phase  3 


Mote:  77777  a  words  corresponds  to  32K  memory 

word  77777  a  VZyy^7\  \ 

77600,  P-l— -I  7  loader  space  (always  preserved) 


free  memory  (used  to  store  new  contact  data, 

as  necessary) 


Current  limit  of  used  memory  (may  Increase 
as  run  progresses) 


Linked  lists  of  block  contacts 


Block  pointers 

arranged 

sequentially 


— .K6--r- 


1377,  words: 


Contains,  for  each  block,  a  pointer 
to  the  list  of  all  contacts  for  that 
block 


Linked  list  of  block  comers.  The  length 
is  fixed  for  a  given  set  of  blocks,  but  the 
links  will  change  as  the  blocks  move. 


.  Ifh  J 

;  *'!’  .  Array  of  boxes,  each  pointing 

:  320,  words:  t0  a  llst  of  corner3  falling 


in  that  box 


Sets  of  data  for  each  block 


Block  pointers — .M2'"!  '* 
arran£ed  XJH  J377i  words: 

sequentially^^  .1 . , 


Contains,  for  each  block,  a  pointer 
to  the  data  associated  with  that 
block 


Phase  3  program  (length  around  15000,  words) 


word  O' 


^Page  zero:  reserved  for  storage  of  global  symbols 

Note:  .Ml,  .M2  etc  are  the  global  symbols 

that  refer  to  the  pointers  to  the 
memory  locations  shewn 


A0 


XLQAD  YIjOAD 
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Format  of  linked  Lists  of  Pressure  Segment  Data 


if  no  pressure  segments  exist,  .PRES  =  -1 


f 

if  end  of  list  ,  -1  stored  as  flag 


The  empty  list  of  pressure  segments  strings  together  groups  of  six  words 
which  were  previously  active  as  pressure  segment  data  lists.  It  is 
accessed  by  the  pointer  .PENT  . 


The  empty  list  of  contact  data  has  a  similar  form  but  the  list  groups 
are  13a  words  long.  It  is  accessed  by  the  pointer  .EMPT  . 


With  this  preliminary  information  in  mind,  a  brief  discussion 
of  each  of  the  subroutines  of  Phase  3  may  now  be  presented.  The 
logic  of  the  subroutines  is  straight  forward  and  due  to  the  number 
of  comments  interspersed  in  the  listing,  there  seems  to  be  little 
need  to  present  flow  charts  for  the  programs.  The  brievity  of  the 
discussion  is  justified  by  the  fact  that  Cundall  (1974)  has 
adequately  described  the  original  versions  of  the  subroutines. 

The  descriptions  presented  herein  are  thus  primarily  concerned 
with  the  modifications  made  to  the  program. 

Subroutine  TRANS 

The  purpose  of  TRANS  is  to  translate  the  Fortran  data  arrays 
into  the  Phase  3  format  illustrated  on  pages  A-12  and  A-13.  It 
is  the  first  subroutine  to  be  executed  in  Phase  3  and  is  only  used 
once.  The  program  originally  (Cundall,  1974)  was  overwritten  by 
the  data  input  routine,  but  this  is  no  longer  so.  Additionally, 
TRANS  classifies  all  of  the  block  corners  into  boxes  utilizing  the 
format  illustrated  on  page  A-14;  Cundall  outlines  the  procedure 
for  accomplishing  this. 

The  changes  made  to  TRANS  are  minor  and  are  outlined  in  the 
following  sentences.  The  initial  program  version  was  implemented 
for  a  specific  memory  size;  the  present  version  determines  the  size 
of  its  environment  and  adjusts  itself  accordingly.  The  routine 
determines  the  locations  of  the  Fortran  common  blocks  and  sets 
several  pointers.  The  memory  sizing  routine  works  for  all  physical 
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configurations  except  32K  words;  for  this  memory  size  the  common 
block  locations  are  displaced  by  one  word.  For  this  reason 
variable  IY  is  dimensioned  as  513  only  in  Phase  3.  This  juggling 
is  not  necessary  for  other  memory  sizes  and  may  not  be  necessary 
for  other  operating  software. 
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Subroutine  CONTR 

The  next  routine  to  be  executed  governs  the  main  control  loop; 
subroutine  CONTR  also  monitors  the  keyboard.  The  logic  of  the 
program  is  unchanged  from  Cundall  (1974)  but  the  fact  that  this 
routine  embodies  the  main  calculation  cycle  merits  the  presentation 
of  a  flow  chart. 
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The  overall  logic  of  CONTR  is  straight  forward  and  simply 
involves  the  evaluation,  for  each  block  in  turn,  of  the  sets  of 
equations  listed  on  pages  A-5  through  A-7. 

The  calculation  of  the  displacements  from  the  forces 
(subroutine  MOTIO)  involves  the  evaluation  of  equations  6  and  7 
for  each  block.  Accelerations  derived  from  forces  are  integrated 
twice  to  give  displacements.  Gravity  forces  and  any  applied 
forces  are  added  to  the  forces  derived  from  block  contracts. 

In  this  part  of  the  calculation  cycle  the  magnitude  of  the 
displacements  are  also  monitored  and  if  necessary,  control  is 
transferred  to  the  routine  that  determines  if  any  of  the  block 
corners  need  to  be  assigned  to  new  boxes. 

Having  thus  obtained  incremental  displacements  for  all 
blocks,  the  force/displacement  laws  (equations  1  through  5)  are 
used  to  obtain  contact  forces. 

The  control  routine  also  calls  subroutine  UPDAT  every  so  often 
to  update  the  coordinate  data  used  in  equations  1  through  7. 

UPDAT  updates  the  sine  and  cosine  of  the  edge  in  contact  with  a 
particular  corner,  as  well  as  the  global  coordinates  of  the 
contact  point.  UPDAT  also  deletes  broken  contacts  and  searches 
for  new  ones. 

The  other  function  of  subroutine  CONTR  is  to  monitor  the 
keyboard  and  respond  to  keys  hit  by  the  user  while  the  program 
is  running  or  waiting.  The  program  responds  to  the  keys  and 
modifies  the  sequential  operation  of  the  program.  The  function 
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of  the  individual  keys  is  clearly  explained  in  the  listing  of 
CONTR  (Appendix  C)  as  well  as  in  Appendix  B. 

Subroutine  REBOX 

As  has  been  observed,  the  corner  reboxing  routine  is  called 
from  MOTIO  whenever  a  block  is  suspected  of  having  moved 
sufficiently  to  need  its  corners  reclassified  into  new  boxes. 

The  logic  of  the  corner  reboxing  scheme  is  presented  by  Cundall 
(1974)  and  is  unchanged  in  the  present  version  of  the  program. 

REBOX  also  updates  the  applied  joint  water  pressures.  The 
water  pressures  must  act  normal  to  the  joint  surface  and  do  not 
dissipate  as  the  blocks  move.  Any  rotational  movement  of  a  block 
with  an  applied  water  pressure  would  lead  to  a  change  in  the  x  and 
y  components  of  the  applied  force.  Subroutine  REBOX  updates  this 
information  whenever  it  is  called  for  any  block. 

Subroutine  MOTIO 

This  subroutine  evaluates  equations  6  and  7  on  page  A-7  for 
all  blocks  except  those  having  either  the  master  or  manual  fix 
flags  set.  As  noted  earlier  MOTIO  also  makes  a  decision  when  to 
call  the  reboxing  routine  to  reclassify  any  block's  corners  into 
new  boxes.  A  call  to  REBOX  is  triggered  whenever  the  cumulative 
motion  of  any  block  exceeds  one  screen  unit. 
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Subroutine  FORD 

This  subroutine  evaluates  equations  1  through  5  on  page  A-5 
and  A-6  for  each  block  in  sequence.  It  accesses  the  data  stored 
in  the  contact  list  associated  with  each  block,  and  computes  the 
force  sums  acting  on  that  block.  Equation  5  is  the  only  equation 
of  the  main  calculation  cycle  that  is  different  than  that  presented 
by  Cundall.  It  now  contains  terms  to  account  for  the  presence 
of  joint  water  pressure. 

Ch  =  I/x"  +  +  F*V« 

^  Ey  Fy^»r«i  +  (5) 

=  lc  Fc;  (Xc  -  xl)  -  Fcxl  (y c  -  yl)  +  MfreJr 
Ford  also  contains  numerous  entry  points  that  are  primarily  used 
for  experimenting  with  the  program.  These  entry  points  allow 
modification  of  block  weights  and  the  dynamic  factors  of  the  program. 

Subroutine  UPDAT 

The  subroutine  UPDAT  is  called  once  every  few  iteration 
cycles  to  check  for  new  contact  points.  UPDAT  also  updates 
coordinate  data  as  required.  The  routine  is  unchanged  from  the 
original  form;  the  description  presented  by  Cundall  is  very  complete 
and  contains  a  flow  chart  of  the  subroutine. 

Subroutine  PONT 

Subroutine  PONT  is  used  to  calculate  the  global  coordinates  of 
a  contact  point  from  the  local  coordinates  of  that  point.  This  is 


done  by  a  simple  coordinate  transform  for  a  translated  origin  and 
rotated  axes.  The  equations  are:  (see  any  book  on  analytic 
geometry) 

XG  =  XC  +  XL.cosG  -  YL.sinQ 
YG  =  YC  +  XL. sinG  +  YL.cosB 

where  XL,  YL  =  local  coordinates 
XG,  YG  =  global  coordinates 
0  =  angle  of  local  system  to  global  system 
XC,  YC  =  local  origin  (=  block  centroid) 

Subroutines  DISPL  and  TEK 

With  the  exception  of  the  contact  vectors,  which  are  generated 
by  subroutine  FORD,  all  screen  plotting  is  managed  by  subroutine 
DISPL.  Subroutine  DISPL  in  turn  calls  TEK  which  is  nothing  more 
than  the  basic  Tektronix  supplied  software  package  for  mini¬ 
computers.  Whereas  Cundall's  (1974)  version  of  the  program  provide 
hard  copy  through  digital  plotting,  the  present  hardware  includes  a 
Tektronix  4631  copier.  Although  DISPL  will  still  drive  a  digital 
plotter,  this  feature  is  rarely  used. 
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The  remainder  of  the  subroutines  of  Phase  3  are  primarily 
used  for  various  utility  functions.  No  great  detail  will  be 
expended  on  describing  the  main  function  of  each  routine.  The 
subroutine  listings  (Appendix  C)  contain  many  comments  that 
indicate  how  the  functions  are  performed.  The  interested  reader 
is  directed  to  the  listings. 


Subroutine  INPUT 

The  utility  routines  embodied  in  INPUT  are  primarily 
concerned  with  parameter  specification  and  modification.  Most 
significant  of  the  functions  are: 

1)  set  up  or  modify  the  values  of  the  ten  different 
friction  properties  used  by  the  program 

2)  input  of  applied  pressures 

3)  numerical  input  of  applied  loads 

4)  set  up  of  displacement  control  routine 

The  input  of  pressure  segments  deserves  farther  attention.  The 
presence  of  water  in  a  joint  tends  to  exert  a  force  against  the 
joint  surfaces.  For  a  single  joint  surface: 


unit  depth 
/ 

1)  F  =  P  *  L  *  (1) 


2)  yd  =  x2  -  x, 
xd  =  y2  -  *1 

3)  M  =  F  (sin  a  (y£  -  y)  +  cos  a  (xc  -  x)) 

or 

M  =  £  (yd  (yc  -  y)  +  xd  (xc  -  x) ) 

F  and  M  are  calculated  as  soon  as  a  pressure  segment  is  defined  and 
never  varies  with  displacement.  The  x  and  y  components  of  the  force 
do  vary  with  displacement  and  are  updated  in  REBOX. 

4)  F  =  F.sin  a 

/» 

F  =  -  F.cos  a 


The  initial  value  of  Fx  and  F^  is  also  calculated  in  REBOX. 
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Subrou tine  UTIL 

Subroutine  UTIL  contains  several  utility  programs.  The  entry 
points  and  their  functions  are: 

1)  .HITC  -  a  routine  to  determine  which  block  has  the 

centroid  corresponding  to  given  x  and  y 
coordinates. 

2)  .PRN1  -  output  a  single  character  to  the  teletype 

3)  .ALPH  -  sets  the  Tektronix  to  alpha  mode 

4)  .PAGE  -  a  routine  to  clear  the  Tektronix  screen 

5)  .  LENG  -  a  routine  to  return  the  length  of  side  NP 

of  the  block  in  question 

6)  .TYP  -  a  routine  to  return  the  surface  type  number 

of  a  given  edge 

7)  .SCAL  -  a  routine  to  scale  vector  lengths 

8)  .IPRN  -  a  binary  to  decimal  conversion  routine  that 

prints  a  right  justified  integer  in  a  given 
field  length 

9)  .PRN2  -  a  routine  to  print  a  single  character  cn  the 

teletype  -  character  is  in  AC0 

10)  .MESS  -  a  routine  to  print  a  message  at  a  specific 

location  on  the  screen 

11)  .AXIS  -  a  routine  to  draw  an  axis  with  tick  marks 

12)  .GETT  -  a  routine  to  receive  a  character  from  the 

teletype 

13)  . DB I N  -  a  decimal  to  binary  conversion  routine 


14)  . CHEK  -  checks  if  an  ASCII  byte  is  a  digit  and  reduces 

it  to  binary  if  it  is 

15)  .WORD  -  a  routine  to  get  an  alphanumeric  string  from 

the  key  board 

Subroutine  CYCLE 

Subroutine  CYCLE  contains  several  additional  utility 
routines.  The  entry  points  and  their  functions  are: 

1)  .KET  -  a  routine  to  set  velocities  to  zero  at  a 

kinetic  energy  peak 

2)  .RSET  -  a  routine  to  set  the  iteration  cycle  counter 

to  zero 

3)  OPTIN  -  a  routine  to  set  options  governing  vector 

scale  factors,  automatic  copy  and  automatic 
stop 

4)  .STEP  -  a  routine  to  step  the  iteration  cycle  counter 

5)  .TPRN  -  a  routine  to  print  elapsed  cycles 

Subroutine  HITS 

Subroutine  HITS  checks  all  sides  of  all  of  the  blocks  to 
determine  which  edge  of  which  block  the  coordinates  x  and  y  fall 
upon. 

Subroutine  LOADS 

Subroutine  LOADS  allows  all  block  weights  to  be  multiplied  or 
divided  by  an  integer  constant. 
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Subroutine  MOVIT 

The  law  of  motion  for  displacement  controlled  blocks  is 
embodied  in  subroutine  MOVIT 

Subroutine  TAPE 

Subroutine  TAPE  contains  the  standard  Line  tape  utilities.  It 
also  contains  the  coding  for  reading  or  writing  save  files  in 
Phase  3,  and  performs  the  overlay  to  return  to  Phase  1. 
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APPENDIX  B 

USER  MANUAL  FOR  DISTINCT  ELEMENT  PROGRAM 

The  information  contained  in  this  Appendix  describes  the 
operation  of  the  configuration  of  the  Distinct  Element  program  used 
for  this  dissertation.  The  Appendix  is  arranged  in  such  a  way  that 
each  of  the  three  operating  phases  is  described  in  sequence,  with 
comment  interspersed  as  necessary.  The  comment  following  the  third 
phase  of  the  program  is  extensive  and  contains  much  information 
pertinent  to  the  successful  operation  of  the  program. 

During  all  three  phases  of  operation  the  computer  responds  to 
user  commands  whenever  a  teletype  key  is  struck.  There  are  a  lot 
of  key  commands  to  which  the  program  will  respond  with  appropriate 
action.  Lists  of  these  keys  follow.  Rather  than  memorizing  the 
lists  and  attempting  to  implement  them  all  at  once,  it  is  strongly 
suggested  that  the  potential  user  familiarize  himself  first  with 
those  keys  which  are  essential  to  the  operation  of  the  program.  As 
the  user  becomes  confident  in  the  use  of  these  keys  through  the 
running  of  simple  examples,  more  keys  can  be  added  to  his  "working 
vocabulary" . 

Essential  Keys 

Phase  1  -  1,  2,  E,  P-2,  rubout 

Phase  2  -  E,  S,  R,  P-3 

Phase  3  -  G,  D,  F,  C,  Z,  I  (F),  S 

If  a  more  detailed  introduction  to  the  use  of  the  program  is  desired 
see  Cundal 1  ( 1 974) . 
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PHASE  1  -  OPERATIVE  KEYS,  CURSOR  DISPLAYED 

1  -  Key  "1"  is  always  used  to  define  the  first  end  of  a  line 

segment.  Move  the  cross-hair  cursor  to  the  desired  point  and 
strike  the  key.  The  computer  responds  by  drawing  a  "+"  at 
the  point  indicated. 

2  -  Key  "2"  is  always  used  to  define  the  second  end  of  a  line 

segment.  Move  the  cross-hair  cursor  to  the  desired  point  and 
strike  the  key.  The  computer  responds  by  drawing  a  "+"  at 
the  indicated  point  and  by  drawing  a  line  between  the  first 
and  second  end  points  of  the  desired  line  segment.  The 
computer  program  was  modified  to  recognize  the  fact  that  it 
is  often  desirable  to  draw  connected  line  segments.  Therefore, 
the  program  will  respond  to  the  "2"  key  following  either  a  "l" 
key  or  a  "2"  key.  In  this  case  the  program  supplies  the 
coordinates  of  the  first  endpoint  of  the  line  segment  at  the 
proper  time  by  using  the  last  input  of  the  second  end  of  a 
line  segment. 

E  -  Any  individual  line  segment  may  be  erased  by  placing  the 
cross-hair  cursor  at  any  position  on  the  line  segment  and 
typing  the  "E"  key.  A  useful  trick  to  make  the  drawing 
clearer  is  to  create  a  line  segment  at  the  edge  of  the 
Tektronix  screen  and  then  erase  it.  When  the  remaining  line 
segments  are  redrawn,  the  "+'s"  at  the  ends  of  line  segments 
are  not  redrawn. 

rub-  All  created  line  segments  may  be  erased  by  typing  the  "rubout" 

out 

key.  When  the  "E"  key  is  used  to  erase  a  line  segment,  the 
end  points  of  that  line  are  not  removed  from  the  point  list. 
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These  points  can  often  impede  the  creation  of  a  drawing. 

If  a  large  number  of  line  segments  are  to  be  erased,  it 
is  preferable  to  use  the  "rubout"  key. 

H  To  make  a  hard  copy  of  the  Tektronix  display  type  key  "H" 

or  strike  the  make  copy  button  on  the  console. 

W(code)  To  store  the  complete  list  of  line  segments  created  in 

Phase  1,  type  "W"  followed  by  the  desired  code  file  number. 
To  store  the  line  segments  in  the  third  file,  for  example 
type  "W"  followed  by  "3". 

R(code)  To  recover  a  list  of  line  segments  created  at  an  earlier 
time,  type  "R"  followed  by  the  desired  code  file  number. 

For  example,  to  recover  the  eighth  file  type  "R"  followed 
by  "8". 

Note:  The  program  uses  the  ASCII  equivalent  of  the 

character  to  calculate  the  position  of  the  file  on 
the  Line  tape.  On  a  620s  block  tape  the  permitted 

files,  in  order,  are:  1-9,  :,  ;,  <,  =,  >,  ?,  @,  and 
A  -  Q.  The  program  also  stores  a  "password"  in  the 
file  to  prevent  garbage  from  being  read  into  the 
program. 

N  -  The  program  has  a  subroutine  to  allow  the  numerical  input 
of  line  segment  end  points.  To  implement  this  feature, 
type  key  "N". 

C  -  The  Tektronix  screen  coordinates  are  from  0  to  1023  in  the 
x  direction  and  from  0  to  780  in  the  y  direction.  Often, 
the  problem  to  be  analyzed  can  be  in  field  coordinates 
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which  do  not  fall  conveniently  in  this  range.  By  typing 
key  "C",  a  scale  factor  may  be  input  to  the  program  which 
is  then  used  by  the  program  to  divide  the  input  data  in 
such  a  way  that  it  will  fall  within  the  range  of  the 
Tektronix  screen  coordinates.  Incidentally,  the  program 
treats  both  the  scale  factor  and  the  input  data  as  integer 
numbers,  so  nothing  is  to  be  gained  by  typing  in  highly 
accurate  field  coordinate  data.  The  "C"  key  does  not 
affect  either  the  cross-hair  cursor  input  or  the  digitizer 
input. 

D  -  The  program  contains  a  subroutine  to  allow  input  of  data  by 
means  of  a  graphic  tablet  or  digitizer.  To  implement  this 
feature  type  key  "D". 

DIGITIZING  ROUTINE 

The  digitizing  routine  will  accept  input  data  from  the  graphic 
tablet  until  the  "E"  key  is  typed.  At  this  point  the  control 
returns  to  the  main  program  and  the  cross-hair  cursor  is  displayed. 
NUMERIC  INPUT  ROUTINE 

Upon  entrance  to  the  numeric  input  routine,  the  computer 
responds  by  typing  "Xl=?"  and  waiting  for  input  data.  After  the 
data  input  following  "Y2=?"  several  keys  are  operative. 

CR  -  striking  the  carriage  return  key  causes  the  computer  to 
respond  "Xl=?"  etc. 

/  -  striking  the  "/"  key  causes  the  program  to  use  the  last 

endpoint  as  the  first  endpoint  of  a  new  line  segment.  The 
computer  response  is  thus  "X2=?"  etc. 
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L  -  striking  the  "L"  key  causes  the  computer  to  redraw  all  lines. 
This  key  is  frequently  used  as  every  input  data  pair  will 
leave  "Xl=?"  and  "Yl=?"  typed  on  the  screen  -  it  soon  becomes 
difficult  to  follow  what  is  happening  on  the  screen  unless 
"L"  is  frequently  implemented. 

E  -  striking  key  "E"  while  in  the  numeric  input  routine  will 
cause  control  to  be  returned  to  the  main  program  and  the 
cursor  is  displayed. 

Once  the  desired  number  of  line  segments  has  been  created,  the  second 
Overlay  of  the  program  may  be  implemented.  To  do  this,  strike  key 
"P"  followed  by  key  "2".  Two  comments  are  appropriate.  First,  it 
is  not  possible  to  get  to  Phase  2  from  either  the  numeric  input 
routine  or  the  digitizer  routine.  The  cross-hair  cursor  must  be 
displayed  before  control  can  be  passed  to  Phase  2.  Second,  all 
three  input  methods  work  together.  Thus,  it  is  possible  to  create 
part  of  the  assemblage  of  line  segments  in  the  numeric  input 
routine  and  finish  the  creation  in  the  cross-hair  cursor  input 


routine. 
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PHASE  1  SUMMARY 

A )  Cursor  Displayed  -  Operative  Keys 

1  Use  the  cursor  position  as  end  no.  1  of  a  new  line 

2  Use  the  cursor  position  as  end  no.  2  of  new  line  (display 
the  line) 

E  Erase  the  indicated  line 
H  Make  a  hard  copy  of  display 
rubout  -  Erase  all  lines 

W(code)  Write  the  display  onto  tape  in  location  code 
R(code)  Read  the  display  at  location  code  into  memory 
D  Go  to  digitizing  routine 
N  Go  to  numeric  input 
C  Change  N  scale  factor 
P  Then  2  go  to  P-2 

B )  D i gitizing  Routine 

Accept  line  segments  from  digitizer 
E  Escape  to  cursor  on 

C)  Numeric  Input  Routine 

Responds  XI-?,  etc,  after  Y2=?  several  keys  are  operative: 

CR  Select  a  new  point 
/  Repeat  point 
L  Redraw  all  lines 


E  Escape  to  cursor  on 
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PHASE  2 _ -  OPERATIVE  KEYS 

E  -  A  single  block  may  be  erased  in  Phase  2.  To  implement  this 
option,  place  the  cross-hair  cursor  on  the  desired  block 
centroid  and  type  key  "E". 

R  -  All  erased  blocks  may  be  restored  by  typing  key  "R". 

S  -  A  single  block  may  be  examined  by  placing  the  cross-hair 

cursor  on  the  desired  block  centroid  and  typing  key  "S". 
After  the  single  block  is  displayed,  the  block  may  be  erased 
by  typing  key  "E".  Striking  any  other  key  returns  without 
erasing  the  block.  This  feature  is  most  useful  to  determine 
which  centroid  belongs  to  a  given  block. 

A  -  Striking  key  "A"  will  display  all  of  the  blocks. 

H  -  A  hard  copy  of  the  display  may  be  obtained  by  striking  key 

"H"  or  pressing  the  "make  copy"  switch  on  the  Tektronix 
console. 

To  return  to  Phase  1,  strike  key  "P"  followed  by  key  "1". 

To  pass  control  to  the  third  Overlay,  Phase  3,  type  key  "P"  followed 
by  key  "3". 

Two  comments  are  in  order.  First,  it  is  more  economical  in  terms  of 
computer  work  expended  to  erase  unwanted  blocks  in  Phase  2  than  in 
Phase  3.  Second,  if  the  computer  determines  that  no  blocks  can  be 
created  from  the  line  segments  passed  by  Phase  1,  control  is 
automatically  returned  to  Phase  1.  This  means  that  it  is  not 
possible  to  get  to  Phase  3  without  at  least  one  block  on  the  screen. 
To  access  a  Phase  3  save  file  it  is  necessary  to  create  a  single 
block,  and  pass  it  from  Phase  1  to  Phase  2  and  then  onto  Phase  3. 
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At  that  point,  the  Phase  3  save  file  may  be  read. 


PHASE  2  SUMMARY 

E  Erase  the  block  indicated 
A  Display  all  blocks 

S  Display  the  single  block  indicated  -  E  Erases  the  block,  any 

other  key  returns 
without  erasing  block 

11  Make  a  hard  copy  of  the  display 
R  Restore  all  erased  blocks 
P  then  1  go  to  Phase  1 
P  then  3  go  to  Phase  3 


x 
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PHASE  3  -  OPERATIVE  KEYS 

Iteration  Cycle  Not  Running 

G  -  To  begin  or  continue  the  iteration  cycle  type  key  "G" 

D  -  As  the  Tektronix  is  a  storage  CRT  all  images  drawn  on  the 
screen  remain  on  the  screen  until  erased.  To  redisplay  the 
system  of  blocks  type  key  "D". 

Z  -  To  remove  all  inertia  from  the  system  type  key  "Z"  to  set  all 
velocities  to  zero.  This  key  is  useful  in  the  consolidation 
phase  of  the  program  in  conjunction  with  the  "V"  key  as 
described  in  a  later  section. 

H  -  To  make  a  hard  copy  of  the  blocks  displayed  on  the  screen 
type  key  "H"  or  depress  the  "make  copy"  switch  on  the 
Tektronix  console. 

T  -  To  display  the  surface  properly  types  which  have  been  declared 
in  the  cursor  routine,  type  key  "T".  The  program  displays  a 
number  from  1  to  9  at  the  midpoint  of  the  edge  of  the  block. 
Those  surfaces  having  surface  type  0  (the  default  value)  are 
not  indicated. 

W  -  To  store  page  zero  (a  variable  list)  and  all  block  data,  type 

key  "W".  The  program  writes  this  data  on  Line  tapes  for  future 
retrieval.  This  feature  can  be  used  to  store  the  consolidated 
block  assemblage  and  identical  problems  can  be  run  to  study 
the  effect  of  certain  parameters.  Only  one  file  can  be 
written  or  read  by  Phase  3,  so  no  "code"  is  required. 

R  -  To  read  a  previously  stored  Phase  3  write  file,  type  "R".  The 
program  reads  page  zero  and  the  block  data,  essentially 
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J 

defining  a  new  problem.  A  problem  may  be  written  on  tape  and 

returned  to  at  a  later  time.  As  noted  earlier,  it  is  not 

possible  to  gain  access  to  Phase  3  without  going  through  Phase 

1  and  Phase  2.  The  best  method  of  access  is  to  create  a 

single  block  in  Phase  1  and  pass  it  on  to  Phase  3.  Upon 

typing  key  "R",  the  stored  problem  will  be  recovered.  It  is  ; 

j 

important  to  note  that  only  the  default  friction  value  is  j 

stored  in  page  zero.  Friction  properties  for  surface  types 

1  -  9  must  be  re-entered  if  the  problem  is  changed.  Note  that 

it  is  possible  to  use  the  Line  tape  utility  "KBEX"  to  go 

directly  to  Phase  3,  but  this  requires  knowledge  of  several 

starting  addresses. 

V  -  The  contact  vectors  of  each  block  may  be  displayed  by  typing 
key  "V".  The  stability  of  a  block  can  be  assessed  by 
repeatedly  typing  key  "V"  and  noting  the  variation  of  the 
position  and  length  of  the  contact  vectors.  Note,  however, 
that  while  the  iteration  cycle  is  not  running,  new  contacts 
are  not  being  detected  (subroutine  UPDATE)  and  repeated  typing 
of  key  "V"  may  allow  blocks  to  punch  through  edges.  It  is 
recommended  that  no  more  than  10  "V"  keys  by  typed  without 
typing  key  "G". 

L  -  The  weights  of  all  blocks,  all  externally  applied  loads  and 

joint  fluid  pressures  are  displayed  when  key  "L"  is  depressed. 

J  -  To  input  joint  fluid  pressures,  type  key  "J".  The  program 
responds  by  displaying  the  cross-hair  cursor  and  waiting. 


Position  trio  cross-hair  cursor  on  the  desired  joint  se;;..nn; 
and  type  the  desired  value  of  pressure  followed  by  .1  can-!  ;  :e 
return.  The  cursor  is  then  re-displayed.  Additional  press!..  . 
data  may  then  be  entered  by  the  above  procedure.  Alterna¬ 
tively,  a  carriage  return  exists  from  the  routine,  f.'oie 
that  if  two  line  segments  are  adjacent  the  logic  of  the 
program  will  apply  to  fluid  pressure  to  both  surface*. 

C  -  Typing  key  "C"  displays  the  cross-hair  cursor  and  allows  i.-ntry 
to  several  input  routines  described  in  a  later  section. 

I  -  By  typing  key  "I",  four  additional  input  routines  may  be 
accessed  by  typing  an  additional  key.  These  keys  are: 

F  -  If  key  "F"  is  typed  following  key  "I",  the  routine  to 
define  surface  friction  property  types  is  accessed. 

To  define  the  friction  coefficient  corresponding  to 
each  numbered  surface  type,  place  the  horizontal 
cursor  on  the  same  line  as  the  desired  surface  type, 
type  the  key  followed  by  a  3  digit  decimal  value 
of  the  friction  coefficient,  and  end  with  a  carriage 
return.  After  all  desired  friction  coefficients  have 
been  defined,  another  carraige  return  will  give  control 
back  to  the  main  routine.  Note  that  the  maximum 
friction  coefficient  is  0.999  and  that  the  value 
actually  used  by  the  program  differs  by  .001  due  to  a 
val idity  check. 

L  -  Typing  key  "L"  following  key  "I"  accesses  the  same 

numerical  input  routine  described  under  key  "0"  in  the 
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cursor  routine. 

0  -  Typing  key  "0"  following  key  "I"  allows  the  user  to 
define  several  options  including  the  options  to  print 
values  of  applied  loads  and  contact  vectors,  define 
the  vector  length  scale  factor,  and  automatically  make 
copies  and  stop  the  program  after  a  desired  interval. 
The  kinetic  energy  damping  routine  should  be  used 
with  extreme  caution. 

U  -  If  key  "U"  is  typed  following  key  "I",  a  routine  to 
define  user  units  is  entered.  At  the  present  time 
the  only  result  of  entering  this  routing  is  to  cause 
a  set  of  divided  axes,  labeled  in  desired  units  to 
be  displayed  on  the  screen. 

X  -  By  typing  key  "X"  the  iteration  cycle  counter  is  reset  to  zero. 
This  routine  is  useful  to  set  the  cycle  counter  to  zero  after 
the  consolidation  phase  so  that  the  problem  can  begin  at  zero 
time. 

Q  -  Typing  key  "Q"  accesses  several  routines  to  vary  some  of  the 
dynamic  parameters  and  block  weights.  Its  primary  function  is 
in  program  development  and  debugging. 

M  -  Typing  key  "M"  puts  the  cross-hair  cursor  on  the  screen  and 
enables  the  selection  of  the  block  to  be  used  for  the  dis¬ 
placement  control  mechanism.  Place  the  cursor  on  the  desired 
block  centroid  and  hit  any  key  except  "E".  The  program  guides 
the  user  through  the  specification  of  the  displacement  steps, 
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frequency  and  direction.  Striking  key  "E"  disables  the 
mechanism  if  it  is  already  set. 

P  -  Upon  completion  of  the  problem,  control  may  be  passed  to 
Phase  1  by  typing  key  "P". 

Iteration  Cycle  Running 

S  -  To  stop  the  iteration  cycle  and  prepare  for  input,  modification 
etc.  type  key  "S". 

N  -  While  the  iteration  cycle  is  running  blocks  that  are  moving 

are  being  redrawn  as  they  move.  To  prevent  this  type  key  "N". 
The  computer  responds  by  blanking  the  Tektronix  screen.  This 
action  is  required  if  the  program  is  to  be  left  unattended 
as  the  Tektronix  screen  can  be  permanently  damaged  if  an 
image  is  displayed  for  a  time  longer  than  about  15  minutes 
without  being  redrawn.  This  option  also  makes  the  program 
run  faster  since  the  computer  does  not  have  to  service  the 
Tektronix  for  plotting. 

A  -  Plotting  of  the  blocks  as  they  move  can  be  restored  by  typing 
key  "A".  However,  this  option  does  not  redraw  all  of  the 
blocks,  it  only  enables  the  drawing  of  blocks  as  they  move. 

This  has  the  advantage  of  allowing  the  user  to  determine 
zones  of  movement  within  a  mass,  for  example.  To  redraw  all 
of  the  blocks,  both  moving  and  stable,  type  key  "A"  followed 
by  key  "0". 

Several  of  the  keys  which  are  operative  when  iteration  cycle  is 

stopped  are  also  operative  when  the  iteration  cycle  is  running. 
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These  are: 

0  -  display  al 1  blocks 
H  -  make  a  hard  copy 
T  -  display  surface  types 
V  -  display  contact  vectors 
L  -  display  load  vectors 

I terati on  Cycle  not  Running,  Cross-Hair  Cursor  Displayed 

F  -  To  force  the  program  to  hold  a  block  fixed  in  space,  place 

the  cross-hair  cursor  on  the  desired  block  centroid  and  type 
key  "F". 

U  -  To  release  the  status  of  a  previously  fixed  block,  place  the 
cross-hair  cursor  on  the  desired  block  centroid  and  type 
key  "U". 

E  -  Blocks  can  be  erased  by  placing  the  cross-hair  cursor  on  the 
desired  block  centroid  and  typing  key  "E".  However,  as 
mentioned  earlier,  it  is  more  economical  in  terms  of  computer 
effort  to  erase  blocks  while  in  Phase  2. 

0  -  Typing  key  "0"  writes  the  prompt  message  "Select  Single  Block 

Place  the  cross-hair  cursor  on  the  desired  block,  hit  any  key 
and  the  program  displays  just  the  one  block.  Also  displayed 
on  the  screen  are  the  block  centroid  coordinates  and  the 
magnitude  of  the  applied  loads.  Additionally,  if  switch  zero 
on  the  computer  console  is  in  the  up  position,  pertinent 
force  and  velocity  data  are  displayed.  Finally,  an 
opportunity  is  presented  to  numerically  change  the  values  of 
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the  applied  loads.  This  routine  exits  the  cursor  routine 
automatical ly. 

1  -  Applied  loads  may  be  input  from  the  cursor  routine  by  placing 

the  cursor  on  the  desired  block  centroid  and  typing  key  "1". 

The  cross-hair  cursor  is  then  moved  to  a  position  defining 
the  magnitude  and  direction  of  the  desired  load  vector  and 
key  "2"  is  typed. 

0-9  -  Surface  property  type  flags  are  set  in  the  cursor  routine 
by  placing  the  cross-hair  cursor  on  the  desired  block  edge 
and  typing  a  key  from  "0"  to  "9”.  This  flag  alerts  the  program 
to  search  the  friction  table  for  a  specific  friction  value. 

Any  other  key  removes  the  cursor  and  transfers  control  back  to 
iteration  cycle  not  running  status. 

There  are  two  external  "flags"  available  to  the  user  to  modify 
the  execution  of  the  program.  These  are  data  switches  on  the 
console  of  the  computer.  If  switch  15  is  in  the  up  or  on  position, 
the  printing  of  the  elapsed  cycles  and  default  friction  coefficient 
is  inhibited.  This  is  of  use  when  it  is  desired  to  have  copies 
that  are  free  of  text.  The  other  flag  is  controlled  by  switch  0 
on  the  console;  it  serves  multiple  purposes  in  guiding  program 
execution.  If  switch  0  is  in  the  up  position,  it  is  not  possible 
to  return  to  Phase  1;  this  is  done  to  prevent  accidental  loss  of  a 
program.  Switch  0  "on"  also  causes  velocity  and  acceleration  data 
to  be  printed  when  a  single  block  is  examined,  as  well  as  allowing 
a  message  to  be  printed  when  the  displacement  control  mechanism  is 
operative. 
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PHASE  3  SUMMARY 


Not  Running 

G  Go  (start  dynamics) 

D  Redraw  all  blocks 
Z  Set  all  velocities  to  zero 
H  Make  hard  copy 
T  Display  surface  types 
W  Write  display  on  tape 
R  Read  display  from  tape 
V  Display  contact  vectors 
L  Display  loads  &  pressures 
J  Accept  joint  pressures 
C  Display  cursor 
I  Input  actiuation 
F  Friction  U  Units 
L  Loads  0  Options 
X  Reset  cycles 
Q  Debug  routine 
M  Access  displacement  control 
P  Go  to  Phase  1 


Running 

S  Stop  running 
N  No  plot  option 
A  Activate  plotting 
Also:  D,  H»  T,  V,  L 

Cursor  Displayed 

F  Fix  block  indicated 

U  Unfix  indicated  block 

E  Erase  block  indicated 

0  Display  block  indicated 

1  First  end  of  applied 

load  vector  (centroid) 
followed  by  a  2 

0  to  9  Define  surface 
type  (friction) 

Other  keys  remove  cursor 
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USEFUL  INFORMATION 

The  remainder  of  this  Appendix  is  devoted  to  the  presentation 
of  information  that  will  be  of  use  to  potential  users  of  the  program. 
Some  of  this  information  is  intended  to  make  it  easier  for  an 
untrained  user  to  begin  working  with  the  program,  some  of  it  is 
i mended  to  aid  tuns  •  a,'.-,-  --:1  !  in  program  development  and  some 

of  it  is  simply  odds  and  ends.  !:o  apology  is  offered  for  the  rather 
rambling  nature  of  the  presentation. 

Block  creation 

In  the  first  overlay  or  main  section  of  the  program,  line 
segments  are  drawn  on  the  Tektronix  screen  using  the  cross-hair 
cursor,  a  numerical  coordinate  input  routine  or  the  graphic  input 
tablet.  At  this  stage  of  the  program  we  are  only  drawing  line 
segments.  Thus  it  is  not  necessary  to  draw  each  block  individually. 


not  required  better  way 

The  program  detects  intersections  and  overlaps  and  treats  them  as 
such.  Incidentally  the  program  has  a  built  in  error  factor  of  B 
screen  units  (out  of  !0?3  x  or  76H  y).  It  is  therefore  impossible 
to  create  a  situation  such  as: 


The  program  will  merge 
the  points  into 


f 


) 


un  i  Is 


Always  remember  that  line  segments  that  do  not  define  a  closed  area 
will  be  rejected  by  the  program  Overlay  2  (see  following  paragraph). 
In  the  second  Overlay  of  the  program,  the  computer  scans  all  line 
segments  created  in  the  first  Overlay  to  determine  which  line 
segments  will  form  closed  areas.  For  example,  if  the  following 
line  segments  were  created  in  Phase  1,  (or  the  first  Overlay): 


Phase  2  (second  Overlay)  would  return  the  following  bio 
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It  must  be  emphasized  that  closed  areas  must  be  drawn  in 
blocks  are  desired  in  the  main  part  of  the  program.  If  a 
line  segment  has  been  inadvertently  omitted,  there  is  no 
other  than  to  return  to  Phase  1  and  begin  anew. 

In  Phase  1,  use  rubout  rather  than  erase  if  possible- 
program  remembers  all  points  created  since  the  last  rubou 
Thus,  if  you  desired  to  create  a  line  but  had  created  and 
previous  line,  the  program  would,  if  it  considered  the  ac 
proper,  divert  the  line  to  include  the  previous  line's  <n 
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This  happens  very  easily,  be  aware  of  why  it  happens. 

As  the  Tektronix  4010-1  is  a  storage  oscilloscope  and  not  a 
television  screen,  all  information  drawn  on  the  screen  is  stored 
on  the  screen.  Under  no  circumstances  use  the  page  key  to  clear 
the  display.  This  leads  to  a  minor  state  of  confusion  as  to  what 
the  program  is  doing.  Especially  serious  is  the  situation  that 
occurs  if  you  use  the  page  key  when  the  cross-hair  cursor  is 
displayed.  The  effect  of  this  is  to  place  the  screen  in  ALPHA 
mode  (ASCII  input)  while  the  governing  software  is  still  in  GIN  MODE 
(graphic  input).  When  this  occurs,  you  no  longer  will  be  able  to 
communicate  with  the  computer  through  the  Tektronix,  and  the 
computer  will  be  hung-up  in  the  graphic  input  loop.  This  isn't 
really  as  serious  as  it  looks.  For  some  reason,  striking  the 


return  key  several  times  will  bring  the  cursor  back.  However,  this 
is  not  fool  proof  -  if  you  strike  the  return  key  quickly,  it  is 
possible  that  the  program  will  give  the  Tektronix  the  order  to  take 
the  cursor  down  before  it  actually  gets  it  back  on  the  screen.  In 
this  case  the  computer  is  no  longer  confused,  but  quite  often  the 
operator  is.  Enough  said,  the  best  solution  is  to  not  touch  the 
page  key  when  using  this  program. 

Line  tapes 

The  Line  tape  system  is  a  unique  mixture  of  the  operating 
advantages  of  a  disk  system  and  the  lower  cost  of  a  magnetic  tape 
format.  The  addresses  of  the  storage  blocks  are  written  on  the 
tape  and  the  software  can  search  the  tapes  in  either  direction  for 
a  specific  block  address  and,  once  it  is  found,  read,  write  or 
overwrite  starting  at  that  address.  The  present  form  of  the  Distinct 
Element  program  relies  heavily  on  the  Line  tapes  -and  the  following 
paragraphs  present  information  that  could  be  of  use  to  someone  using 
the  program. 

The  system  used  for  this  study  has  two  drives  -  unit  0  and 
unit  1.  Unit  0  is  used  by  the  program  for  the  Phase  1  save  files. 

The  save  file  handling  routine,  subroutine  TAPE,  does  not  check  the 
tape  file  directory  before  writing  nor  does  it  append  a  title  to  the 
directory  for  the  save  file.  It  is  thus  a  good  idea  to  use  a  blank 
tape  on  unit  0  and  maintain  a  separate  "directory”  of  the  save 
files.  Unit  1  is  used  for  a  tape  that  has  the  three  overlays  and 
the  introduction  to  the  program  written  on  it.  (Incidentally  the 
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.  •  ■. Massed  by  placing  a  "blank"  tape  on  unit  0,  a  "program" 
■It  1  and  typing  "HELP".  The  program  takes  it  from  there!) 
or  unit  1  is  also  used  to  store  the  Phase  3  save  file.  It 
art  to  note  that  the  file  directories  do  not  "know"  about 
’.vs  and  save  file  and  thus  it  is  up  to  the  user  to  protect 
'  -ar.o  from  block  1  508  onward, 
inc  tape  furnished  software  used  in  this  study  did  not 
:nphisticated  operating  system.  The  fact  that  not  having 
f  ated  operating  system  led  to  additional  memory  (=  larger 
vms  offset  by  the  fact  that  the  overlays  must  be  "done  by 


tape  utilities  have  the  capability  to  move  data  from 
I'Mory  and  vice  versa.  The  overlays  of  the  program  are 
.  of  memory  written  onto  tape.  For  the  present  study 
addresses  on  the  tape  on  unit  1  are: 


file 

beginning 
block 
number  * 

number  | 
of 

blocks 

use  1 

350a 

558 

r.e  ?. 

4  50  8 

37  8 

as-  3 

510s 

37e 

3  save  file 

1  50a 

up  to 
2008 

lital  plot 
u  tine 

555  0 

1 

the  line  tapes  used  have  630.,  blocks  of  400B  words 
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It  is  important  to  point  out  that  the  Line  tape  routine  r'.BLX, 
v/hich  is  used  to  write  the  overlays  onto  tape,  does  not  check  the 
file  directory.  It  is  a  very  easy  matter  to  destroy  files  on  the 
tape  if  KBEX  is  not  used  with  extreme  caution. 

Execution  times 

The  amount  of  real  time  required  for  execution  of  a  single  cycle 
of  the  Phase  3  iteration  loop  is  primarily  a  function  of  the  number 
of  blocks  comprising  the  model  in  question.  The  program  execution 
times  are  also  greatly  influenced  by  any  program  options  in  use  and 
the  amount  of  "connect"  time  devoted  to  machine/user  dialog.  The 
option  which  consumes  the  most  time  is,  of  course,  the  plotting  of 
the  blocks  as  movement  occurs.  This  is  due  to  the  fact  that 
communication  across  a  teletype  line  occurs  under  conditions  of 
"programmed  I/O"  -  the  CPU  must  wait  between  each  transfer  until  the 
Tektronix  is  ready  to  accept  more  data. 

The  accompanying  graph  presents  an  approximate  portrayal  of  the 
real  time  required  for  the  Nova  1220  to  perform  one  complete  cycle 
of  the  iteration  loop  as  a  function  of  the  number  of  blocks  modeled 
in  the  program.  The  graph  indicates  a  range  of  time  required  for 
calculation;  the  lower  end  of  the  range  is  a  fairly  accurate 
representation  of  the  fastest  possible  calculation  times  for  a  given 
number  of  blocks.  This  time  can  only  be  realized  by  running  in  the 
"no  plot"  option.  The  upper  end  of  the  range  represents  the  time 
required  for  one  cycle  of  the  iteration  loop  with  the  plotting  option 


SECONDS  OF  REAL  CPU  TIME  /  ITERATION  CYCLE 
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activated  and  most  of  the  blocks  in  the  program  moving.  This 
probably  represents  an  accurate  upper  limit  to  the  calculation  time 
and  the  time  required  for  most  problems  would  be  somewhat  less  than 
that  illustrated. 

The  time  dedicated  to  user/machine  dialog  is  not  included  in 
the  graph  but  can  be  a  significant  portion  of  the  total  time  required 
for  program  execution.  This  is  especially  so  for  users  who  are 
unfamiliar  with  the  program,  but  increased  exposure  to  the  program 
usually  leads  to  familiarity  and  an  attendant  drop  in  the  amount 
of  time  required  for  interaction. 

Conversion  factors 

All  calculations  performed  by  the  Distinct  Element  program 
described  in  this  Appendix  utilize  variables  whose  magnitudes  and 
dimensions  have  been  adjusted  to  give  optimum  calculation  speeds. 

This  has  been  done  in  order  that  double  precision  variables  are 
avoided  and  so  that  all  arithmetic  is  done  on  integers  (integer 
arithmetic  is  many  times  faster  than  floating  point  arithmetic  in 
the  absence  of  a  floating  point  processor).  In  order  that  someone 
who  wishes  to  do  so  may  convert  to  either  metric  or  english  units, 
three  conversion  factors  are  presented  in  the  following  paragraphs. 

The  first  conversion  factor  is  a  defined  relationship  between 
physical  problem  length  and  that  used  in  the  computer  program. 
Consider  the  following  physical  situation:  a  block  100  ft  on  a 
side,  1  ft  thick,  with  a  unit  weight  of  160  pet. 
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The  computer  model  is  drawn  in  such  a  way  that  the  equivalent 
edge  lengths  are  300  cu  (computer  units).  The  unit  weight  in 
the  computer  model  is  1  cu  (this  can  be  changed  by  typing  "Q" 
followed  by  key  "W"  -  the  following  must  be  modified  if  the  unit 
weight  is  changed).  By  selecting  300  cu  to  represent  100  ft,  the 
first  conversion  factor  f^  is  automatically  defined. 


To  get  feet  or  meters  multiply  the  program  distance  by  fd 


In  this  particular  example, 

300  cu  fd  =  100  ft  or 

fd  =  0.333  ft/cu 

The  second  conversion  factor 
physical  problem  forces  and  those 
program  returning  to  the  example, 


is  a  derived  relationship  between 
used  internally  in  the  computer 
the  real  weight  of  the  block  is 
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soon  to  be i 

TOO  ft  *-  100  ft  *  1  ft  x-  160  pcf  =  1.6  x  106  lbs 
Fiie  weight  of  the  block  in  computer  units  is  given  by  the  Distinct 
Lloment  program  -  in  this  case  it  is  seen  to  be  720  cu.  The 
r-'  "'ber  720  represents  a  normalized  weight  obtained  by  determining 
the  volume  of  the  block  and  dividing  by  125.  The  number  125  is 
related  to  the  tolerance  to  which  points  and  lines  are  subjected 
in  Phase  1  and  Phase  2.  The  smallest  block  allowed  is  defined 
to  be  5  times  the  area  defined  by  the  screen  accuracy  (5  x  5).  The 
smallest  block  area  possible  is  then  125  units;  when  normalized 
the  smallest  block  weight  allowable  is  thus  1  cu  since  the  unit 
weight  used  in  the  program  is  1  cu.  The  weight  used  in  the  co. route 
program  for  this  example  is  thus 

^  *  iso  pcf  ,  „  cu/unit  deptt, 

Since  W  real /unit  depth  =  100  ft  *  100  ft  x-  160  pcf 
W  real  =  125  x-  f^j  x  d  *  W  cu 

1  he  conversion  factor  between  real  situation  force  and  that  used 
internally  by  the  computer  is 

fj  -  1 25  ■x-  f ^  ■x-  d 

To  get  force  in  pounds  or  newtons  multiply  the 
displayed  force  by  f^  . 
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In  the  example  considered,  if  it  were  desired  to  input  a  joint  water 
pressure  whose  resultant  would  balance  the  weight  of  the  block, 
its  magnitude  would  be  found  in  the  following  manner 

-  real  pressure  P  -  1.6  *  10^  lb/100  ft^  =  16000  psf 

-  fp  =  fd  x-  d  =  0.333  -x-  160  -  53.3  psf/cu 

p 

-  pressure  in  computer  units  =  real  _  16000  _  ^qq  cu 

fp  ~  53'3  CU 


Equilibrium  conditions 

The  problem  of  recognition  of  equilibrium  conditions  is  of 
paramount  importance  in  the  Distinct  Element  method,  as  in  other 
explicit  finite  difference  programs.  An  explicit  formulation  does 
not  have  a  "solution"  in  the  sense  that  an  implicit  formulation 
such  as  a  Finite  Element  analysis  does.  In  the  implicit  formulation 
the  behavior  of  each  point  is  related  to  the  other  points  through  a 
system  of  equations  that  can  be  solved  for  a  given  input  resulting 
in  a  solution.  In  an  explicit  formulation,  on  the  other  hand,  the 
points  communicate  only  with  their  nearest  neighbors;  the  "solution" 
in  this  case  does  not  necessarily  need  to  be  a  situation  of  stable 
equilibrium.  The  only  way  that  an  equilibrium  situation  can  be 
recognized  is  by  observing  the  behavior  of  the  blocks. 

The  obvious  solution  to  this  problem  is  to  observe  the  blocks 
flashing  on  the  screen  -  the  movement  of  the  blocks  is  obvious  and 
it  can  immediately  be  recognized  if  the  problem  under  consideration 
is  unstable.  However,  the  fact  that  the  blocks  are  not  flashing 


un  the  screen  does  not  necessarily  indicate  that  an  equilibria:: 
situation  has  been  reached.  In  the  example  considered  in  the 
previous  section,  one  screen  unit  of  displacement  corresponded  tr. 
four  inches  of  real  displacement.  In  a  large  problem  where  1 1 ' 

,]r-.  i  -  ire  somewhat  confined,  thousands  of  iteration  cycles  w i i  ^ 
needed  to  get  this  much  displacement;  for  a  program  involving  75 
blocks  the  real  time  for  this  many  calculations  could  take  an 
hour.  This  is  obviously  not  a  very  satisfactory  method  to  determine 
if  equi 1 ibrium  exists. 

The  software  necessary  for  more  subtle  solutions  has  been 
incorporated  within  the  present  version  of  the  program.  At  any 
lime  during  the  running  of  a  problem,  the  program  may  be  stopped 
(key  l:S" )  and  any  block  examined  for  pertinent  data.  By  displaying 
the  cursor  (key  "C")  then  typing  key  "0"  will  result  in  the  message 
"SELECT  ANY  BLOCK"  being  displayed  on  the  screen.  By  placing  the 
cursor  on  the  desired  block  centroid  and  striking  any  key  a  display 
cf  block  data  will  be  presented.  This  data  includes:  block  centroid 
coordinates  (four  places  to  right  of  decimal  point  displayed);  the 
unbalanced  force  sums  acting  on  the  block;  the  block  velocities  and 
angle  of  rotation;  and,  the  values  of  user  applied  loads.  By 
examining  certain  "key" blocks  as  the  program  runs  it  is  a  relatively 
simple  matter  to  determine  if  an  equilibrium  state  has  been  reached. 

7 1  I.  con  so  ji  da  t  Ton 

“he  block  data  passed  onto  Phase  3  from  the  first  two  overi.r  ■ 
contains  information  pertaining  to  individual  blocks  only,  fir 
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contact  lists  do  not  exist  before  the  start  of  the  program,  so  the 
blocks  do  not  know  that  they  have  neighbors.  When  gravity  is 
suddenly  switched  on,  all  of  the  blocks  begin  to  move  at  once  and 
as  block  interactions  occur,  the  contact  lists  are  developed.  The 
way  in  which  the  block  configuration  is  allowed  to  interact  has  a 
significant  effect  on  the  outcome  of  the  program  in  those  instances 
where  a  proper  mass  consolidation  is  not  achieved.  An  improperly 
consolidated  system  of  blocks  can  lead  to  a  diverging  solution; 
this  can  be  recognized  by  the  presence  of  wildly  fluctuating  contact 
forces  that  bear  no  relation  to  the  block  weights  involved. 

The  blocks  should  be  allowed  to  consolidate  in  an  initial 
equilibrium  position  before  the  actual  problem  is  run.  This  can 
usually  be  accomplished  by  the  judicious  placement  of  restraining 
blocks;  these  are  subsequently  removed  to  begin  the  actual  problem. 
To  actually  consolidate  the  mass  a  good  deal  of  time  must  be  spent 
observing  the  behavior  of  the  blocks  and  intervening  to  guide  the 
program.  Oust  switching  gravity  on  without  regard  to  consolidation 
of  the  blocks  can  easily  lead  to  situations  where  pressure  waves 
travel  through  the  mass  and  prevent  the  blocks  from  reaching  an 
equilibrium  state. 

Several  bits  of  information  are  related  in  the  following 
sentences  that  should  be  helpful  to  potential  users  of  the  program. 
First  of  all  it  is  very  helpful  to  start  the  problem  with  all 
frictional  properties  set  to  zero  {the  program  automatically  does 
this  unless  the  user  changes  the  friction  table).  The  first  block 
interactions  often  involve  high  contact  forces;  if  the  friction 
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coefficients  of  the  surfaces  are  other  than  zero,  situations  can 
arise  whereby  relatively  large  forces  are  "locked-in"  only  to  be 
released  when  just  the  right  contact  occurs.  By  starting  with  a 
zero  value  of  the  friction  coefficient,  shear  resistances  do  not 
develop  along  the  joints  and  in  conjunction  with  the  velocity 
zeroing  technique  described  below,  the  restrained  system  of  blocks 
comes  to  equilibrium.  At  this  point,  the  restraining  blocks  can  be 
removed  and  the  program  allowed  to  run. 

The  technique  of  properly  consolidating  a  system  of  blocks 
involves  zeroing  the  block  velocities  at  the  correct  time;  the 
system  of  blocks  cannot  reach  equilibrium  unless  all  inertial 
effects  are  removed.  It  is  possible  to  gain  insight  into  the  status 
of  a  block  mass  by  examining  the  behavior  of  the  contact  vectors. 

The  key  "V"  is  used  to  display  the  contact  forces  whenever  it  is 
struck;  this  is  accomplished  by  setting  a  plot  flag,  going  once 
through  the  iteration  cycle  and  then  taking  the  flag  down.  This 
is  especially  useful  if  the  program  is  in  the  stopped  mode  since 
the  "V"  key  can  be  used  to  step  through  the  iteration  cycle 
incrementally.  The  variation  in  the  length  and  angle  of  the 
contact  vectors  is  indicative  of  the  relative  stability  of  the 
behavior.  Well  consolidated  systems  of  blocks  display  little 
variation  in  length  or  inclination  of  the  contact  vectors.  To 
achieve  this  state  the  user  must  examine  the  behavior  of  the 
system  and  zero  the  block  velocities  (key  "Z")  when  the  system  is 
in  an  "average"  state.  An  "average"  state  is  exactly  what  it  sounds 
like  -  the  length  of  the  contact  vectors  are  approximately  the 
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average  of  the  variation  in  length,  and  the  inclination  of  the 
contact  vectors  is  approximately  midway  between  the  extreme 
inclinations.  This  can  rarely  be  achieved  in  one  attempt,  and  the 
amount  of  time  required  to  do  it  successfully  increases  with  the 
degree  of  confinement  of  the  problem  (i.e.,  tunnel  models  are  much 
more  difficult  to  consolidate  than  slope  models). 

A  few  words  of  caution  are  in  order.  Stepping  through  the 
iteration  cycle  using  key  "V"  neglects  the  very  important  subroutine 
calls  to  UPDAT.  Unless  UPOAT  is  called,  new  contact  points  are  not 
detected  nor  are  contact  data  updated.  The  result  of  this  is  that 
blocks  can  move  through  one  another.  As  a  rule  of  thumb,  no  more 
than  about  25  consecutive  cycles  should  be  run  by  using  the  "V" 
key  without  using  the  "G"  key  which  does  call  UPDAT.  Potential 
users  will  find  that  applying  loads  incrementally  rather  than  all 
at  once  will  result  in  well  behaved  models.  The  same  is  true  for 
friction  coefficients;  gradually  increasing  the  friction  coefficient 
to  the  required  value  also  results  in  well  behaved  models. 

Special  problems 

Two  specific  problem  geometries  that  can  lead  to  obviously 
improper  solutions  have  been  identified  during  the  course  of  this 
research.  Both  involve  shortcomings  in  the  contact  determining  logic; 
the  problems  are  identical  in  nature  but  whereas  one  is  easily 
overcome,  the  other  requires  that  some  care  be  expended  in  block 
consolidation  to  prevent  its  occurance.  The  problems  will  be 
illustrated  by  reference  to  the  specific  geometries  in  which  they 


were  first  identified. 


The  first  of  the  two  problems  occurred  during  the  analysis  of 
a  rock  slope  which  had  failed.  (This  incidentally,  was  a  real 
problem  -  the  analysis  was  performed  in  collaboration  with  Dr. 
Michael  Bukovansky  of  the  consulting  firm  of  Dames  &  Moore.)  The 
geometry  of  the  problem: 


The  area  under  consideration  is  shown  highly  magnified:  four 
separate  blocks  are  identified.  Geological  investigation  indicated 
the  presence  of  a  fault  plane  that  could  lead  to  the  development  of 
a  "chiseling"  action  -  the  upper  blocks  could  slide  down  and  "pry" 
the  lower  blocks.  The  initial  analyses  performed  using  the  Distinct 
Element  program  failed  to  reproduce  the  expected  failure.  Close 
examination  of  the  behavior  indicated  that  instead  of  sliding  past 
block  £3,  the  lower  point  of  block  #1  was  contacting  block  #4  and 
"hanging  up";  the  net  result  being  that  the  entire  assemblage  of 
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blocks  stabilized.  In  the  real  situation,  any  such  contact  would 
result  in  fracture  development  at  the  point  -  in  the  Distinct  Element 
program  such  cracking  is  presently  not  modeled.  This  problem  was 
solved  simply  by  moving  the  position  of  the  cross  joint  between 
block  #3  and  block  #4  to  a  slightly  lower  position  on  the  slope  as 
illustrated  below. 


The  second  problem  is  of  a  similar  nature;  its  occurance  is 
rare  and  is  usually  due  to  improper  block  consolidation.  The 
problem  was  identified  in  a  model  similar  to  that  illustrated  and 
resulted  in  the  stability  of  a  model  which  should  have  failed. 
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To  illustrate  the  problem  a  magnified  section  of  tho  model  is 
required;  a  contact  between  blocks  ~1  and  -~2,  circled  in  the  sketch, 
is  illustrated 


The  overlap  of  the  two  blocks  results  in  a  contact  force  F  tending 
to  push  the  blocks  apart.  However,  in  an  improperly  consolidated 
block  mass,  especially  one  with  high  horizontal  forces  applied 
before  the  mass  is  allowed  to  move,  the  contact  situation  could  look 
like  this  after  the  first  iteration. 


Depending  upon  which  "contact"  is  first  discovered  by  the  contact 
seeking  logic  edge  *1  of  block  #1  could  be  identified  as  the  edge 
in  contact.  The  resultant  force  would  thus  act  to  prevent  the 
downward  movement  of  block  P 2.  This  problem  has  not  arisen  in 
models  where  proper  consolidation  steps  have  been  taken.  As 
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insurance,  however,  all  models  tested  where  this  problem  could  occur 
have  been  allowed  to  fail  as  part  of  the  analyses,  to  make  certain 
that  the  problem  was  not  occurring. 

For  those  geometries  to  be  tested  where  the  occurance  of  this 
problem  is  a  possibility,  special  care  can  be  taken  during  the 
consolidation  phase  to  prevent  its  occurance.  This  often  involves 
consolidation  of  segments  of  the  model  on  an  individual  basis  and 
then  pushing  the  individual  segments  together  to  form  the  model. 
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APPENDIX  C 

LISTING  OF  THE  DISTINCT  ELEMENT  PROGRAM 

This  Appendix  contains  listings  of  all  of  the  subroutines 
necessary  to  build  the  three  overlays  of  the  Distinct  Element 
program  used  in  this  dissertation.  Most  of  the  Phase  1  and  Phase  2 
routines  are  written  in  Fortran;  a  few  are  written  in  Data 
General  Nova  assembly  language.  All  of  the  Phase  3  subroutines 
are  written  in  Nova  assembly  language. 

At  first  glance,  the  assembly  language  subroutines  may 
appear  to  be  of  little  value  to  those  unfamiliar  with  Data 
General  computers;  this  is,  however,  not  the  case.  Assembly 
language  programming  differs  very  little  from  the  techniques 
used  in  programable  calculators  and  in  fact  rarely  involves 
anything  more  sophisticated  than  moving  data  between  memory  and 
accumulators,  performing  arithmetic  functions,  and  occasionally 
jumping  to  a  subroutine.  The  listings  presented  are  interspersed 
with  numerous  comments  and  the  straightforward  logic  of  the 
program  makes  them  very  readable. 

As  an  aid  to  potential  users  a  list  of  the  subroutines 
loaded  in  each  overlay  is  presented  next. 
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List  of  Phase  1  Subroutines  Page Jiuinber 


MAIN 

C-4 

LIMEX 

C-10 

ERASE 

c-n 

INSEC 

C-12 

HARD 

C- 14 

CROSS 

C  - 1 4 

TEK 

machine  language  subroutines;  Fortran 

C-15 

TAPE 

interface  recognized  by  calls  to 

C-l  9 

COPY 

.CYPL  and  .FRET. 

C -23 

OVERLAP 

C-24 

DIGIT 

C-2  7 

List  of  Phase 

2  Subroutines 

Paqe  Number 

BUILD 

C-29 

CENT 

C-33 

CROSS 

C-l  4 

HARD 

C-l  4 

TAPE 

machine  language  subroutines;  Fortran 

C-l  9 

COPY 

interface  recognized  by  calls  to 

C- 23 

TEK 

.CYPL  and  .FRET. 

C-15 

List  of  Phase 

3  Subroutines 

Paqe  Number 

TRANS 

see  note  following 

C-40 

TEK 

C-48 

PONT 

C-51 

HITS 

C-54 

TAPE 

C-59 

UTIL 

C-64 

LOADS 

C-75 

FORD 

C-79 

UPDAT 

C-94 

REBOX 

C-l  04 

MOT  10 

C-l  03 

DISPL 

C-l  1 3 

CONTR 

C-l  20 

CYCLE 

C-l  38 

INPUT 

C-l  49 

MOV  IT 

C-l  66 

Note 

The  order 

in  which  the  subroutines  are  loaded  is 

immaterial 

unless  the  digital  plotting  routine  (subroutine  PLOT,  Cundall,  1974) 
is  desired.  In  this  case,  the  plotting  routine  is  read  from  the 
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tape,  in  absolute  binary,  whenever  it  is  needed.  The  routine 
starts  at  location  44 0a  and  thus  overwrites  the  first  subroutine  in 
memory.  If  the  loading  sequence  places  TRANS  at  the  start  of 
memory,  the  overwriting  will  not  disrupt  the  program. 

Preceeding  the  listing  of  the  Phase  3  subroutines  is  a  list 
of  the  Phase  3  global  symbols.  These  are  primarily  entry  point 
addresses  and  frequently  used  variables.  The  listing  begins  on 
Page  C- 37 . 


C-4 


001 

C - MAIN  PROGRAM  (OVERLAY  NUMBER  ONE) - 

’  -  - 

002 

COMMON  1 1 (768) » 12 (  7 68 ) » L I 5 T ( 32 ) » 

033 

* 

LISTC(128)*IX(512)»IY(5I2) 

004 

COM MON /HANDY /N>  L* IACC 

005 

75 

N  =  0 

006 

L  =  0 

007 

I ACO=  5 

008 

1 F  ACT  =  l 

009 

1 

MJX= JX2 

010 

MJY= JY2 

0!  1 

LCODE=0 

01? 

KODE=0 

01  3 

CALL  CURS ( I > JX l >  JY 1  ) 

014 

CALL  CHARO ( 1 59 ) 

015 

IF(N.EQ.0  .OR.  I.NE.178) 

GO  TO  80 

016 

LCODE  =  1 

017 

JX2= JX 1 

01 8 

JY2= JY 1 

019 

JX 1 =M JX 

030 

JY 1 =M JY 

021 

GO  TO  103 

032 

80 

I F ( I .NE • 1 96 )  GO  TO  400 

5 "D”  FOR 

DIGI TI2ER 

023 

KODE= 1 

024 

GO  TO  100 

025 

400 

I  F ( I • E© • 1 95 )  GO  TO  210 

;”C"  TO  CHANC-E  FACTOR 

026 

I F ( 1 . NE .206 )  GO  TO  104 

JN  FOR  NUM.  INPUT 

027 

KOD£=-l 

028 

GO  TO  201 

029 

104 

1 F ( I . EO .200 )  GO  TO  72 

} "H"  FOR 

HARD  COPY 

030 

1 F  < I .EO  *  197)  GOTO  73 

J "E"  FOR 

ERASE 

031 

I F ( I . EG  .208 )  GOTO  76 

)’’p"  FOR 

"PHASE.  •  •" 

03? 

IF(I.EG.25S)G0T0  74 

J  RUBOUT 

ALL  LINES 

033 

I F ( I • EO .2 l 5 >  GO  TO  81 

J"W"  FOR 

WRITE 

034 

I F ( I .NE .210)  GO  TO  87 

J MUST  BE 

"R"  10  READ 

035 

CALL  CHARI ( I ) 

036 

NFIRST=(I-177>*12 

;gei  FILE 

CODE 

037 

CALL  CHARO(  1  55) 

038 

CALL  CH A RO ( 1 40) 

039 

83 

CALL  TAPE ( 1 »NFI RST, 1 1 , I  1 

*  NERFt ) 

040 

IF(NERR.EC.0)  C-0  TO  82 

041 

PAUSE  TAPE  ERROR - HIT  ANY  KEY  TO 

REPEAT 

042 

GO  TO  83 

043 

82 

N  =  L I  ST ( I ) 

044 

L=L ! 5  T ( 2 ) 

045 

IF(LIST(3).NE. 13286)  GO 

TO  75 

046 

DO  84  LX= 1 » L 

047 

I  A  = I 1 (LX) 

048 

I B= 1 2 ( LX  > 

049 

CALL  P L OT S ( 0 # I X ( I A ) / I Y ( I A  )  > 

050 

84 

CALL  PLOTS( 1 . IX( IB) * IY( IB)) 

05 1 

CALL  CHARO( l 59 ) 

05? 

GO  TO  1 

053 

81 

CALL  CHARI  (  I  ) 

054 

NF IRST= ( I -177  )*  1? 

055 

LISTd  )*N 

I 
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056 

LIST(?)=L 

RS7 

L1ST<3)=13286 

058 

86 

CALL  TAPE (2, NF IRST, 1 1  *  1 1 ,NERR> 

059 

IF<NERR.EO.0>  GO  TO  1 

060 

PAUSE  TAPE  ERROR - V.RITE  PROTECT 

ON  ?  HIT  A  KEY 

061 

GO  TO  86 

06? 

87 

IF< I .NE. 1 77)  GOTO  1  1"1"  FOR 

FIRST  END  OF  LINE 

063 

I  F  < KODE •  EG  •  0 )  GO  TO  103 

064 

1  00 

CALL  DIGIT<JX1<JY1<IC ODE) 

065 

I F  < 1  CODE • NE • 0 )  GO  TO  1 

066 

GO  TO  103 

067 

?01 

ACCEPT"  X!=",JX1,"  Y 1  =  ”<JYt 

068 

JXI =JX1 /IFACT 

069 

JY1 =JY1 /IFACT 

070 

103 

IF<N.EG.0)  GO  TO  4 

071 

DO  ?  NN=1 ,N 

07? 

IF<IABS<IX<  NN )  -  JX  1 ><GT<IACC)  GOTO 

2 

07  3 

I  F  <  1 ABS  <  lY<NM-JYn.GT.IACC)  GO  10 

2 

074 

I F I RST  =  NN 

07  5 

GOTO  3 

07  6 

? 

CONTINUE 

07  7 

GOTO  4 

07  8 

3 

JX 1 = 1 X  < 1 F I RST ) 

07  9 

JY1  =1  YMFIRST) 

080 

I F  < LCODE  • EO •  1)  GO  TO  108 

081 

CALL  CHARO< 1 35) 

08? 

1 F  < KODE ) ?0?  < 14,109 

083 

4 

IF<L.EO.0>  GOTO  1? 

084 

CALL  LINEX<JXt  <JY1 < 1XR,I YR  <NH I T  <  LL ) 

085 

IF<NhIT .EO. 1 )  GO  TO  8 

086 

1? 

1 F I RST  =  1 

087 

GOTO  13 

088 

8 

JY 1 = I YR 

089 

JXI = I XR 

090 

I F 1 RST  =  N* 1 

P91 

L  =  L*  1 

09? 

I  1  <  L )  =  I F I RST 

093 

I  ?  <  L )  =  I  ?  <  LL ) 

094 

I?<LL7=1FIRST 

09  5 

CALL  CHARO< 1 35) 

096 

13 

IX< IFIRST) =  JX 1 

097 

I Y  < IFI RST )  =  JY 1 

098 

CALL  CROSS ( JX 1 , JYl) 

099 

N= IFI RST 

100 

I F  <  LCODE  .EO.  1)  GO  TO  108 

101 

IF  <KODE>  ?0? <14<109 

10? 

P0? 

ACCEPT”  X?  =  ",JX?<"  Y2  =  ” , JY2 

103 

JX?= JX2/IFACT 

104 

JY?=JY?/IFACT 

105 

GO  TO  108 

106 

1  09 

CALL  DI GI T<JX2<JY2< ICODE) 

t07 

go  to  ioe 

108 

14 

CALL  CURS< I , JX2, JY2)  >GE1  POINT  2 

109 

CALL  CHARO < 1 59) 

110 

I F  < I . NE .17  8)  GOTO  14 
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11 1 

10f* 

1F<  I ABSC  JX2-JX1)  .GT  .  1ACC)  C-D70  15 

112 

IF! IARS(JY2-JY 1  )  .GT. IACC)  GOTO  15 

113 

IF!KOD£>202. 14.109 

114 

15 

IF!N.LE.l)  GOTO  25 

1 1  5 

DO  16  NN=|.N 

116 

IF(NN.FQ.IFIRST)  GOTO  16 

117 

I  F  (  1  ABS  <  IX(NM- JX2)  .GT  .  I  ACC) 

GOTO  16 

118 

I F ! I ABS! I Y !NN) - JY2) .GT . I  ACC) 

GOTO  16 

119 

1SEC.  =  NN 

120 

GOTO  17 

121 

16 

CONTINUE 

122 

GOTO  18 

123 

17 

JX2  = IXC1SEC) 

124 

JY2  =  1 Y  !  1 SEC ) 

125 

CALL  CHa  RO ( 13  5) 

126 

GOTO  28 

127 

18 

IF  <L.FG.0>  GOTO  25 

128 

CALL  LINEXCJX2. JY2.IXS. IYS.NH1T.LL) 

129 

I F < NH IT.EQ.l)  GO  TO  26 

130 

25 

ISEC=N+t 

131 

GOTO  27 

132 

26 

JX2=IXS 

133 

JY2=  I YS 

134 

I SEC=N+ 1 

135 

L  =  L+  l 

136 

I  1  !  L )  =  I  SEC 

137 

I2(L)=I2<  LL> 

138 

1 2  C  LL )  =  I  SEC 

139 

CALL  CHARO! 135) 

140 

27 

IX< I  SEC ) =  JX2 

141 

I Y  !  I  SEC ) = JY2 

142 

CALL  CROSS! JX2.JY2) 

143 

N= I  SEC 

144 

28 

JXD=JX2-JXI 

145 

JYD= JY2- JY 1 

146 

IF! IABS( JYD) .GT. IABSC JXD) )  GOTO  60 

147 

I  Sli.  Y  =  0 

148 

I F ! JX2 • GT • JX 1 )  GOTO  29 

149 

GOTO  49 

150 

60 

I SW Y= 1 

151 

IF! JY2.GT.JY1  )  GOTO  29 

152 

49 

JXL= JX2 

153 

JXRsJXl 

154 

JYL= JY2 

155 

JYR=JY1 

156 

I  PL=  I  SEC 

157 

I PR  =  I  FI RST 

158 

GOTO  30 

159 

29 

JXL=JX1 

160 

JXR=JX2 

161 

JYL= JY 1 

162 

JYR= JY2 

163 

I  PL  = I F I RST 

164 

I PR= I  SEC 

165 

30 

IF! !SkY.EQ.0)GOTO  61 

si 
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166 

167 

168 
169 
17  0 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188  C 

189 

190 

191  C- 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
21  1 
212 

213  C- 

214 
21  5 
216 

217 

218 

219 

220 


H-FLOAT CJXR-JXL) /FLOAT C JYR-JYL) 

NXTOT=0 
DO  62  NY=l.N 

IFC IYCNY) .GT.JYR.OR. I YCNY) .LT. JYL)GO  TO  62 

IFCNY.EQ.IPL.OR.NY.EG.IPR)  GOTO  62 

IXX=IFIXC H* FLOAT  CIYCNY)-JYL) )+JXL 

IFC IA9SC IXX-I XCNY) ) .GT. I  ACC)  GOTO  62 

NXTOT=NXTOT+l 

LISTCNXTOT)=NY 

62  CONTINUE 

GOTO  63 

61  H=FLOATC JYR-JYL) /FLOAT CJXR-JXL) 

NXTOT=0 
DO  31  NX= 1 > N 

IFC IXCNX) .GT. JXR.OR.IXCNX) . LT . JXL)  GOTO  31 
IFCNX.EQ.IPL.OR.NX.EQ.IPR)  GOTO  31 
IYY=IFIXCH*FLOATC IXCNX) -JXL) l+JYL 
IFC IABSC IYY- I YCNX) ) .GT. IACC)  GOTO  31 
NXT0T=NXT0T+1 
LIST  CNXT0T)=NX 

31  CONTINUE 

63  KOUNT=0 

IFCNXTOT-1 )S0>53»33 
33  IND=0 

-ORDER  POINT  LIST  IN  INCREASING  X  COR  Y)-- 
DO  32  NXX=2*NXT0T 
NX1 =LI ST  C  NXX- 1 ) 

NX2=L I  ST ( NXX ) 

IFC ISWY.EQ. 1 )  GOTO  47 
1FCIXCNX2).GE. IXCNX!))  GOTO  32 
GOTO  48 

47  I F  C 1 Y  CNX2 ) *  GE .IYCNX1 >>  GOTO  32 

48  LISTCNXX-1 )=NX2 
LISTCNXX) =NX l 

I  ND  =  1 

32  CONTINUE 

IFCIND.EQ.l)  GOTO  33 
53  I L= I  PL 

IR=LISTC1 ) 

GOTO  51 

50  1 L= I  PL 
IR=IPR 

51  KOUNT=KOUNT  + 1 
N  INT  =  0 
LOLD=L 

DO  35  LK= 1 >LOLD 

-BEGIN  LINE  SEARCH  FOR  THIS  SEGMENT-- 
I F I = I l CLK) 

I F2  =  1 2C  LK ) 

IFCIF1 .EQ.IL.AND.IF2.E0.IR)  GOTO  34 
IFCIF1 .EQ.IR.AND.IF2.EQ. IL)  GOTO  34 

IFCIF1.EQ.IL. OR. IF1. EQ.IR.0R.IF2.EQ.IL. OR »IF2.EQ.IR)G0T0 
CALL  OVLAP  C I XC I L) > I XC I R> ,  I X  C I F 1  ) , I X  C 1 F2 ) . I X5, I X6#  NS  1 ) 
IFCNS1 . EO .0 )  GOTO  35 


35 
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22!  CALL  0VLAP(IYCIL).»IY?IR),IY<IF1  ■)  ,  IY< 

222  IFCNS2.EQ.0)  GOTO  35 

223  CALL  INSEC? IX? IL) , IX? IR), IY ? IL) , I Y? I 

224  *  I Y? I F 1 )>IY?IF2)>IX5>IX6>IY5.i 

225  I F ( NS3 • EO  •  0 )  GOTO  35 

226  C--A  CROSSING  HAS  BEEN  FOUND-- 

227  N=N+1 

228  I  X  <  N )  =  I  NX 

229  I Y  ?N  )  = I  NY 

230  C--CREATE  NEW  LINE-' 

231  L  =  L+ 1 

232  I2?LK)=N 

233  II(L)=N 


234 

235  C- 
23  6 

237 

238 

239 

240 


1 2  ?  L  )  =  I F2 

-TOTAL  CROSSING  POINTS  INCREMENTED-- 
NlNT=NINT+t 
LISTC?NINT)=N 
35  CONTINUE 

IFfNINT-1)  41,38,37 
37  NIT  =  0 


241 

242 

243 

244 
24  5 
24  6 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265  C- 


DO  36  NN=2,NlNT 
L 1 =L I STC  ?NN- 1 ) 

L2  =  L I STC  ?  NN) 

IF? ISWY.EQ.  1  )  GOTO  46 
IF?IX(L2)«GE»IX?L1))  GOTO  36 
GOTO  45 

46  IF?IY?L2)*GE*IYCL1)>  GOTO  36 
45  LISTCCNN-1 >=L2 
L I  STC  <NN  >  =L I 
N  I  T=  1 

36  CONTINUE 

IE(NIT.EQ.l)  GOTO  37 

38  ILEFT=IL 
NUT  =  1 

39  L=L+ 1 

I  1 ?L)=ILEFT 
I2?L)=LISTC?NUT) 

CALL  PLOTS (0* I XII LEFT), I Y(I LEFT) ) 
CALL  PLOTS?  1  , IX? I2?L) ), IY?I2?L) ) ) 
CALL  CROSS ?IX?I2?L))»IY?I2?L))) 
ILEFT=LISTC?NUT) 

IF(NUT.GE.NINT)  GOTO  40 
NUT  =  NUT  + 1 
GOTO  39 

LAST  LINE  FOR  THIS  SEGMENT 


266  40  L=L+ 1 

267  1 1  <  L) =1 LEFT 

268  12  ?  L)  =  I R 

269  CALL  PLOTS?0*IX?ILEFT),IY?!LEFT)) 

270  CALL  PLOTS? I , IX? I R) » I Y( I R) ) 

271  GOTO  34 
2.72  C- -NO  CROSSINGS  ON  THIS 

273  41  L=L+ 1 

274  I  1  CL)  =  I L 

275  12<L)=IR 


IF2),IYS,IY6,NS2) 

R)  , IX? I  FI ) , IXC1F2)  , 
I Y6, I  NX, INY,NS3) 


SEGMENT  ? JUST  ONE  LINE  TO  CREATE)- 
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276 

CALL  PLOTS! 0, IX!IL)#IY! IL) ) 

277 

CALL  PLOTS!l»IX!IR),IY!IR)) 

278 

34 

I F  !  KOUNT-NXTOT )  56,52/54 

279 

56 

I L  =  L I  ST  CKOUNT) 

280 

1 R  =  L I  ST ! KODNT  + 1 > 

281 

GOTO  51 

282 

52 

1L=L I  ST !KOUNT ) 

283 

I  R= I  PR 

•284 

GOTO  51 

285 

54 

1F(KODE7203>1,100 

286 

203 

CALL  CHARO  !  1  59  ) 

287 

CALL  CHARI !MCODE) 

288 

IF<MCODE-EO. 1 97)  GO  TO  1  1  »•£•• 

TO 

ESCAPE  NUM.  INPUT 

289 

IF  (MCODE.EQ.  141  )  GO  TO  201  t  "Cft" 

FOR 

NEW  XI, Yl 

290 

IFIMCODE.NE.  204)  GO  TO  301  J  "L" 

TO 

REDRAW  LINES 

291 

CALL  CHARO (155) 

292 

CALL  CHARO! 140) 

293 

DO  302  NL= 1 • L  1  REPLOT  ARRAY  OF  LINES 

294 

I  AA  =  I 1 !NL ) 

29  5 

I BB= 12!  NL> 

296 

CALL  PLOTS(0» IX! I AA ) > I Y ( I AA ) ) 

297 

302 

CALL  PL0TS!1/IX!IBB),1Y!IBB>> 

298 

CALL  CHARO! 159) 

299 

GO  TO  203 

300 

301 

IF!MCODE.NE.  175)  GO  TO  205  I**/”  TO 

REPEAT  POINT 

301 

JX 1 = JX2 

302 

JY1 =JY2 

303 

GO  TO  103 

304 

205 

TYPE*’  ?** 

305 

60  TO  203 

306 

72 

CALL  HARD 

307 

GO  TO  1 

308 

73 

CALL  ERASE ! JX 1  >  JY 1 ) 

309 

GOTO  1 

310 

74 

CALL  CHAROC 1 55) 

31  1 

CALL  CHARO! 1 40 ) 

312 

GO  TO  75 

313 

76 

CALL  CHARI < IN) 

314 

IF! IN.NE. 1 78)  GOTO  I 

315 

CALL  CHARO! 155) 

316 

CALL  CHARO! 140) 

317 

LIST!  1 )=N 

318 

LIST ! 2 ) =L 

319 

LIST !  3)  =  I ACC 

320 

CALL  OVLAY !2, 1 1 ) 

321 

GO  TO  l 

322 

210 

ACCEPT  ”  NEW  SCALE  FACTOR  7  *•  »  I FACT 

323 

GO  TO  1 

324 

END  J  THANK  GOODNESS’!! 

1 
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C01 

SUBROUTINE  L I NEX C I XH, I YH , I XR, I YR, NH 

002 

C--ROUTINE  TO  DETECT  IE  LINE  IS  NEAR  POINT-' 

003 

COMMON  1 1 <  7  68  >  » I2C768),LIST ( 32 ) * 

004 

* 

LISTCC 128),IX(S12),IY<512> 

005 

COMMON/HANDY/N, L, I  ACC 

006 

DO  5  LL  = 1 >L 

007 

IP1=I 1 ILL) 

008 

I P2  =  I 2  <  LL ) 

009 

IXl  =  lXOPl> 

010 

IYl=IYOPl> 

01  1 

IX2=IXOP2> 

012 

IY2  =  IYOP2> 

013 

I  YD= I Y2-I Y 1 

014 

I XD= I X2- I X 1 

01  5 

IFO ABSO YD) .GT.  IABSC IXD) )  GOTO  6 

016 

IFOX2.GT.IXl)  GOTO  7 

017 

IE< IXH.LT . 1X2. OR. IXH.GT. 1X1 )  GOTO  5 

018 

9 

H  =  ELOATOYD> /FLOAT  OXD) 

019 

I YG= I  El  X (H*ELOAT  O  XH- I X 1 )+0.5>+IYl 

020 

IEOABSOYG-I  YH> .GT.IACC)  GOTO  5 

021 

IYR=IYG 

022 

I XR= I XH 

023 

GOTO  8 

024 

7 

IEIIXH.LT. 1X1 .OR. IXH.GT. 1X2)  GOTO  5 

025 

GOTO  9 

026 

6 

IEOY2.GT.IY1)  GOTO  10 

027 

IEOYH.LT.  IY2.  OR.  IYH.GT.IY1)  GOTO  5 

028 

1  1 

H= FLOAT  O  XD  > /FLOAT  O  YD) 

029 

IXG=IE  IX<H*ELOA7UYH-m)+0.S)OXl 

030 

IFOABS(IXG-IXH). GT.IACC)  GOTO  5 

031 

I XR= I XG 

032 

I  YR=  I YH 

033 

GOTO  8 

034 

10 

IE<IYH.LT.IYl.0R.IYH.GT.IY2)  GOTO  5 

035 

GOTO  1  1 

036 

5 

CONTINUE 

037 

NHIT=0 

038 

RETURN 

039 

8 

NHI T= 1 

040 

LINE  =  LL 

041 

RETURN 

042 

END 

001  SUBROUTINE  ERASE  (  I  XH,  I  YH  ) 

002  C--TO  ERASE  ONE  LINE  £  RE-DRAW  SYSTEM-- 
003  COMMON  I  1  (7  68),  12(768) »LIST<32>, 

004  *  LISTC(128)#IX(512)»IYC512> 

005  COMMON/HAND Y AN»  Li  I  ACC 

006  CALL  LINEXCIXH,  IYH,  IXR,  I  Y  R,  NH  I T  ,  L  I N  E  > 

007  I F  <NH IT •  EQ • 0 1  RETURN 

008  C-- ERASE  SCREEN-- 


009 

CALL  CHAROt 1  55Y 

01  0 

CALL  CHARO ( 1 401 

01  1 

C- -CUT 

OUT  ll;  shueele  DOWN  REST-- 

01  2 

ll=line 

013 

IE(LL.EQ.L)  GOTO  2 

01  4 

L 1 =L- 1 

01  5 

DO  1  LK  =  LLj  L 1 

01  6 

I 1 < LK  >  =  1 1 (LK+1 ) 

017 

1 

I  2  (  LK  )  =  1 2  < LK  + 1 > 

01  8 

2 

L=L-1 

01  9 

DO  3  LX=1.L 

020 

I  A  = I 1 (  LX  ) 

021 

IB=I2(LX) 

022 

CALL  PLOTSC0, I  X  <  I A  >  .  I Y  C  I A  >  > 

023 

3 

CALL  PL0TS<1jIXCIB)jIYCIB)> 

024 

CALL  CHARO< 1 59 > 

025 

RETURN 

026 

END 
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001 
002 
003 
004 
005 
006 
007 
008 
009 
010 
01  1 
012 
013 
014 
015 
016 
017 
018 
019 
020 
021 
022 
023 
024 
025 
026 
027 
028 
029 
030 
031 
032 
033 
034 
035 
036 
037 
038 
039 
040 
041 
042 
043 
044 


SUBROUTINE  I  NSEC C I  X 1 # I X2# IY1# IY2# 1X3# 1X4# IY3# I  Y4# 

*  1X5, 1X6# I Y5# IY6# IX# IY#NSUC5 

ID1 =IX2-IXl 
I D2= I Y2- I Y 1 
I D3= I X4- I X3 
I D4= I Y4- I Y3 
1FC ID1 .EQ.05  GO  TO  1 
I F ( I D2 • EQ • 0 >  GO  TO  2 
IF(IABS<ID25.EQ.IABS<ID155  GO  TO  3 
IFCIABSCIDl 5  .GT. IABS< ID25 5  C-0  TO  4 
10  IF(IABS(ID3)*GT.IABS(ID4>)  GO  TO  14 
H 1 =FLOAT  <  I D  1 5 /FLOAT  C I D2 ) 

IX1L=IFIX(H1*FL0ATC IY5-IY1 55+1X1 
IX1R=IFIX(H1*FL0AT( IY6-IY1 5 5 +  1X1 
G2=FL0AT(ID3> /FLOAT (ID4) 

IX2L=IFIX<G2*FLOATCIY5-IY35  5  +  1X3 
IX2R=IFIX<G2*FL0ATC IY6-IY35  5  +  1X3 
I XDL  = IX2L-IX1L 
IXDR= I X2R- I X 1 R 

IF<ISIGN<l#IXDL5.EG.ISIGNCl#IXDR55  GO  TO  99 
R=FLOAT<IABS< I XDL 5 5 /FLOAT (I ABS C I XDR- I XDL5 ) 

IY=IY5+IFIX<  R* FLO AT (IY6-IY55 > 

IX=IFIX<H1 * FLOAT ( I Y- I Y 1 >5+1X1 

NSUC=  1 

RETURN 

14  Hl=FLOAT< ID1 5/FLOATCID25 
IFOD4.EQ.05  GO  TO  15 
Gl=FLOAT<ID45/FLOAT(ID3> 

GH=G 1 *H 1 

I Y=  <  G 1  * FLOAT  <IXl-IX35-GH*FLOATCIY15+FLOAT(IY355/( 1 .0-GH5 
17  IX=IFIX<H1+FL0AT(IY-IY1 >5+1X1 
16  IF<<IX.GT.IX6>. OR. (IX.LT. 1X555  GO  TO  99 
IF<<IY.GT.IY65.0R.(IY.LT.IY55)  GO  TO  99 
NSUC=  1 
RETURN 

15  I Y= I Y3 
GO  TO  17 

1  IF< ID4.NE.05  GO  TO  10 
IX=IX1 

I  Y= I Y3 
NSUC= 1 
RETURN 

2  IF<ID3.NE.05  GO  TO  4 
I X= I X3 


045 

046 

047 

048 

049 

050 

051 

052 

053 

054 

055 


I Y= I Y 1 
NSUC= 1 
RETURN 

3  IF<IABS<ID45.EQ.IABSCID355  GOTO  99 

4  IF  < IA9S( ID35  «GT • IABSC ID45  5  GOTO  12 
H2  =  FL0AT<ID2> /FLOAT < ID  1 5 

I F < I D3 • EQ . 0 5  GO  TO  18 
G2= FLOAT < ID35 /FLOAT C I  04 5 
GH=G2*H2 

IX= (G2*FL0AT< I Y 1  - I Y3 5 -GH*FLOAT< I  X 1 5+FL0AT (1X355/(1 .0-GH5 
19  IY=IFIX(H2*FL0AT< IX-IX1 5 5+IY1 
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056 

GO  TO  16 

057 

18 

I X= I X3 

058 

GO  TO  19 

059 

12 

H2=FL0AT< ID2)/FL0ATCID1  > 

060 

IY1L=IFIX ( H2* FLOAT  C I X  5- I X 1 ) )+I Y1 

061 

IY1R*IFIX<H2*FL0AT<IX6-IX1 )  >  +  IYl 

062 

G1=FL0AT(ID4)/FL0AT(ID3) 

063 

I Y2L= I F I X (G 1  AFLOAT ( 1X5- 1X3) )  +  I  Y3 

064 

IY2R=IFIXCG1 * FLOAT (IX6-IX3))+1Y3 

065 

I YDL= I Y2L - I Y 1 L 

066 

I YDR= I Y2R- I Y 1 R 

067 

IFCISIGN(1#IYDR).EQ.ISIGN(1,IYDL))  GO  TO  99 

068 

R=FL0AT<IA9SCIYDL) ) /FLOAT < I ABS ( I YDR- I YDL ) ) 

069 

1X=IX5+-IFIXCR*FL0AT  (  1X6-  1X5)  ) 

070 

I Y=IFIX<H2*FL0ATC IX-IX1 ))+IYl 

071 

NSUC= 1 

07  2 

RETURN 

073 

99 

NSUC=0 

074 

RETURN 

075 

END 
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subroutine:  hard 

--ROUTINE  TO  MAKE  A  HARD  COPY  OR  DISPLAY-- 
COMMON  II <7685,12(7685, LISTC325, 

*  LISTC<1285,IX<S125,IYC5125 

COMMON /HANDY/N>L» IACC 

CALL  COPY  (ISWIT)  iSV«ITCH  0FF=4631 

I F  <  I SW  I T  .EQ.  0  )  GO  TO  5 
DO  1  K=  1  ,  L 
I  PI =1 1 (K> 

IP2=I2(K5 
MX=  4* I X  (  I  P 1  5-2047 
MY=  4* I Y  (  I  P 1  5-2047 
CALL  PLOT (MX, MY,  3  5 
MX=4* I  X  ( IP25-2047 
MY=4* IYCIP25-2047 

1  CALL  PLOT  (MX, MY , 2  5 
DO  2  J=  1  ,  N 
MX=4*IX(J5-20l7 
MY=4*IY(J5-20!7 

2  CALL  INUM(MX,MY, J,45 
CALL  PLOT (-2047  ,-2P47,35 

5  CONTINUE 

RETURN 
END 


NOTES 


PLOT  IS  THE  SUBROUTINE  DESCRIBED  BY  CUNDALL  .  9745 
FOR  PLOTTING  THE  LINES  OR  BLOCKS  ON  AN  X-Y  R  -ORDER 


001 

SUBROUTINE  CR0SS<IX,IY5 

002 

CALL 

PLOT  S  <  0 » IX  +  1 0,  IY  5 

003 

CALL 

PLOTSf 1 , IX-lfl, IY5 

004 

CALL 

PLOT  S  (  0, IXiIY+105 

005 

CALL 

PLOTSfl , IX, I Y- 1 05 

006 

CALL 

CHAROf 1 595 

007 

RETURN 

008 

END 

TITL 

ENT 

EXTD 

NREL 


17761 1 

N  =  - 1 67 

177612 

N  1  =N+  1 

177613 

N2  =  N1 + 

00000*000032 

2 

00001  *  CO6002S 

CHARO: 

JSR 

00002*060277 

INTDS 

00003*32761 1 

LDA 

00004 '044407 

STA 

00005*004451 

JSR 

00006*000013* 

TWIT 

00007*060177 

INTEN 

00010*006001S 

JSR 

0001 1 *000000 

TWET: 

0 

00012*000000 

TWOT: 

0 

00013*000000 

TWIT: 

0 

00014*000000 

SV3 : 

0 

00015*000002 

2 

00016*0060025 

CHARI : 

JSR 

00017*054775 

STA 

00020*060277 

INTDS 

00021 *004426 

JSR 

00022*000013* 

TWIT 

00023*024770 

LDA 

00024*034770 

LDA 

00025*04761 1 

STA 

00026*060177 

INTEN 

00027 '006001S 

JSR 

00030*000004 

4 

00031  *  006002S 

PLOTS: 

JSR 

00032*060277 

INTDS 

00033*02761  1 

LDA 

00034*044757 

STA 

00035*027612 

LDA 

00036*044753 

STA 

00037*027613 

LDA 

00040*044752 

STA 

00041 *004425 

JSR 

00042*000013* 

TWIT 

00043*00001 1  * 

twet 

00044  *  000012  * 

TWOT 

00045*060177 

INTEN 

00046  *  00600 1 5 

JSR 

00047*040416 

CHIN: 

STA 

00050*063610 

SKPDN 

00051 *000777 

JMP 

00052*060510 

DIAS 

00053*043400 

STA 

00054*02041 1 

LDA 

00055*001401 

JMP 

00056*040437 

CHOUT: 

STA 

00057*06351 1 

SKPBH 

00060*000777 

JMP 

00061 *023400 

LDA 

TEK 

CHARO, CHARI , CURS, PLOTS 
.FRET, .CPYL 


e.CPYL 

1 , @N,3 
1 ,TWIT 
CHOUT 


e.FRET 


@  .cpyl 

3,  SV3 

CHIN 

1  ,TWIT 
3,  SV3 
1  ,@N,3 

§  .FRET 

6.CPYL 

1,§N,3 
I, TWIT 
1 ,@N1 ,3 
1 ,TWET 
1 ,@N2,3 
l,TWOT 
TPLOT 


e.FRET 

0,CCAC0 

J  SAVE  AC0 

TTI 

.-1 

0,TTI 

15KP  IF  CHAR 

READY 

JREAD  CHAR 

0, @0, 3 

JSTORE  CHAR 

0,CCAC0 

.RESTORE  ACO 

1,3 

ISETURN 

0,CCAC0 

iSAVE  ACO 

TTO 

;SKIP  IF  NOT 

BUSY 

.-1 

0,«0,3  JGET  CHARACTER 


00062’06llll  DOAS  0, TTO  iSHIP  CHARACTER 

00063*020402  LDA  0, CCAC0  JRESTORE  AC0 

00064*001431  JMP  J,3 
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00065 ' 000000 

CCAC0: 

0 

/TEMP  FOR  AC0 

00066*040526 

TPLOT : 

STA 

0.TPTAC0J SAVE  AC0 

00O67  *023401 

LDA 

0. §1  >3 

/  GET  X 

00070*040526 

STA 

0. TPTX 

00071 *023402 

LDA 

0t @2*  3 

/  GET  Y 

00072*040525 

STA 

0i TPTY 

00073*023400 

LDA 

0i H0i 3 

J  GET  MODE 

00074*040524 

STA 

0>  TPMOD 

00075*054520 

STA 

3.TPTADDJ SAVE  CALL  ADDRESS 

00076* I01015 

MOV# 

0.0.  SNR 

JSKP  IF  NEQ  0 

00077*000405 

JMP 

TPTDV 

J=  0  INITIALI2E  AND  DARK 

00100* 101113 

MOVL# 

0t 0.SNC 

/SKIP  IF  <  0 

00101 *000405 

JMP 

TPTNRM 

i NORMAL  BRIGHT  VECTOR 

00102*00651 1 

JSR 

SCH0U2 

» SET  TO  ALPHA 

00103*000232* 

US 

00104*006507 

TPTDV: 

JSR 

eCHOUH 

J  DARK  VECTOR 

00105*000201  * 

GS 

00106*02051  1 

TPTNRM: 

LDA 

0.TPTY 

/  GET  Y 

00107* 101112 

MOVL# 

0.0. SHC 

/ SKP  IF  + 

001 10* 102400 

SUB 

0.0 

/ MAKE  0 

001 1 1 *034477 

LDA 

3.D780 

J UPPER  Y  BOUND 

001 12* 162513 

SUBL# 

3>0i SNC 

} SKP  IF  ON  SCREEN 

001 13* 161000 

MOV 

3.0 

/ SET  TO  EDGE 

00114*040503 

STA 

0.TPTY 

/ SAVE  GOOD  Y 

001 15*101120 

M0V2L 

0.0 

/USE  UPPER  5  BITS 

00116*101120 

M0V2L 

0i  0 

001 17*101 123 

MOVHL 

0.0 

00120*101300 

MOVS 

0.0 

I  AND  SWAP  HALVES 

00121 *034463 

LDA 

3*8040 

J  HI  Y  TAG 

00122*1 63000 

ADD 

3*0 

I  PUT  IN  CHAR 

00123*040476 

STA 

0 > TPTTMP* USE  A  TEMP 

00124*006467 

JSR 

&CH0U2 

/  SHI  P  HI  Y  5 

00125*000221  * 

TPTTMP 

00126*020471 

LDA 

0.TPTY 

/  GET  Y 

00127*034453 

LDA 

3.B03? 

/mask 

00130*163400 

AND 

3*0 

/LEAVE  LOW  y  5 

00131 *034455 

LDA 

3*8140 

/ LOW  Y  TAG 

00132*1 63000 

ADD 

3*0 

/ SET  IN  CHAR 

00133*040466 

STA 

0. TPTTMP 

00134*006457 

JSR 

§CHOUH 

/SHIP  low  y 

001 35*000221  * 

TPTTMP 

00136*020460 

LDA 

0.TPTX 

t GET  X  VALUE 

00137*101112 

MOVL# 

0. 0 . SHC 

00140* 102400 

SUS 

0.0 

00141 *034450 

LDA 

3*  D I 023 

001 42* 1 62S1 3 

SUBL# 

3.0. SNC 

001 43*1 61030 

MOV 

3.0 

00144*040452 

STA 

0.TPTX 

00145*101120 

M0V2L 

0.0 

/AND  DO  LIKE  Y 

00146* 101120 

M0V2L 

0.0 

00147*101 120 

MOVHL 

0.0 

00150* 101 300 

MOVS 

0.0 

J  H I  X  5 

00151 *034433 

LDA 

3. 8040 

1  HI  X  TAG 

00152*163000 

ADD 

3.0 

/ADD  IN  TAG 

00153*040446 

STA 

0. TPTTMP 

001 54*006437 

JSR 

eCH0U2 

/SHIP  HI  X  5 

00155*000221 ’ 

TPTTMP 

00156*020440 

LDA 

0t TPTX 

/get  X 

00157*034423 

LDA 

3.8037 

/ GOOD I E  MASK 

00160*1 63400 

AND 

3.0 

/LEAVE  LOW  X  5 

VECTOR 


00161 *034424 

LDA 

3/  B 1 00 

J  LOW  X  TAG 

00162* 163000 

ADD 

3/0 

i PUT  IN  TAG 

00163*040436 

STA 

0/ TPTTMP 

00164*006427 

JSR 

8CH0U2 

001 65*000221  * 

TPTTMP 

00166*020432 

LDA 

0/ TPMOD 

00167*101 1 13 

MOVL# 

0/  0/  SNC 

00170*000404 

JMP 

TPTEXT 

00171 *102400 

SUB 

0 1  0 

00172*040426 

STA 

0> TPMOD 

00173*000713 

JMP 

TPTNRM 

00174*020420 

TPTEXT: 

LDA 

0/TPTAC07RESTORE  AC0 

001 75*034420 

LDA 

3 <  TPTADD 

J  CALL  ADDRESS 

00176*001403 

JMP 

3*3 

1  EXIT 

00177*000032 

SU8QQ : 

032 

00200*000033 

ESC: 

033 

00201 *000035 

GS: 

035 

00202*000037 

US: 

037 

00203*000020 

B020: 

020 

000202* 

B037=US 

00204*000040 

B040: 

040 

00205*000100 

B1  00: 

1  00 

00206*000140 

B140: 

1  40 

00207*000003 

D003 : 

003 

00210*00141 4 

D780: 

1414 

00211 *001777 

D1  023: 

1777 

00212*000047* 

CHINP: 

CHIN 

00213*000056* 

CH0U2 : 

CHOUT 

00214*000000 

TPTAC0: 

0 

00215*000000 

TPTADD: 

0 

00216*000000 

TPTX : 

0 

00217*000000 

TPTY: 

0 

00220*000000 

TPMOD: 

0 

00221 *000000 

TPTTMP: 

0 

00222*040772 

CURS  IS: 

STA 

0#TPTAC0;SAVE  AC0 

00223*054772 

STA 

3, TPTADD 

;SAVE  CALL  ADDRESS 

00224*006767 

JSR 

eCHOUH 

J  SET  TO  ALPHA 

00225*000202* 

US 

00226*006765 

JSR 

ecHOUz 

J  TURN  ON  CURSER 

00227*000200’ 

ESC 

00230*006763 

JSR 

8CH0U2 

00231  *000177  * 

SUBQ9 

00232*006760 

JSR 

8CHINP 

i  GET  CHAR 

00233*000216* 

TPTX 

00234*020753 

LDA 

0/ D003 

/•GET  LOOP  COUNTER 

00235*040764 

STA 

0, TPTTMP 

00236*020760 

LDA 

0/TPTX 

;get  CHAR 

00237*000421 

JMP 

CURPS 

iSTORE  CHAR 

00240*006752 

CURLP: 

JSR 

eCHINP 

i GET  HI  COORD 

00241 *000216’ 

TPTX 

00242*006750 

JSR 

8CHINP 

/'GET  LOW  COORD 

00243*000217* 

TPTY 

00244*034736 

LDA 

3/ E037 

;  MASK 

00245*020752 

LDA 

0/TPTY 

;low  COORD 

00246* 1 63400 

AND 

3/0 

/MASK  OFF  GARBAGE 

00247*040750 

STA 

0/TPTY 

JSAVE  FOR  LATER 

00250*020746 

LDA 

0/TPTX 

1  HI  COORD 

00251 ’ 1 63400 

AND 

3/0 

J MASK  OFF 

00252*101300 

MOVS 

0/0 

J  SWAP 

00253*101220 

MOVER 

0/0 
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00254* 101220  MOVER 

00255*101220  MOVER 

00256*034741  LDA 

00257*163000  ADO 

00260*034735  CURPS:  LDA 
00261 *043400  STA 

00262*1754 00  1MC 

00263*054732  STA 

00264*014735  DS2 

00265*000753  JMP 

00266*020726  LDA 

00267*001400  JMP 

00270*000004  4 

0027 1 *0060025  CURS!  JSR 
00272*060277  INTDS 

00273*054416  STA 

00274*004726  JSR 

00275*000312*  a  1 

00276*000313*  A2 

00277*000314*  A3 

00300*034411  LDA 

00301*024411  LDA 

00302*047611  STA 

00303*024410  LDA 

00304*047612  STA 

00305*024407  LDA 

00306*047613  STA 

00307*060177  1NTEN 

00310*0060015  JSR 

00311*000000  SX3!  0 

00312*000000  a  1 !  0 

00313*000000  A2:  0 

00314*000000  A3:  0 

•  END 


0*0 

0*0 

3>TPTY  JLOU  COORD 

3>o  ;add  in  lov.  coord 
3*TPTADDJ CALL  ADDRESS 
0*P0*3  *  STORE  VALUE 

3*3  JADJUST  ADDRESS 

3*TPTADDJ SAVE  UPDATED  ADD 
TPTTMP  1  CHECK  FOR  DONE 
CURLP  JL00P  IF  NOT 
O*TPTAC0J RESTORE  ACS 
0*3  l RETURN 

P.CPYL 

3*  SX3 
CURSIS 


3  *  SX3 
1  *  A  1 
l *  @N*3 
1  *A2 
1 *@N1 *3 
l  *  A3 
1 *@N2*3 

©.FRET 
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•TITL  TAPE 
•ENT  TAPE#  OVLAY 

« EXTD  • CPYL*  •  FRET 

•  NREL 


17761 1 

N=- 1 67 

00000*000000 

NUB: 

0 

00001 ’000002 

TWO: 

2 

00002*000003 

THREE: 

3 

00003  *000030 ' 

FIRST: 

NUB 

00004*000322* 

LAST: 

C8 

00005*000003 

3 

;this 

ROUTINE  READS  THE 

APPROPRIATE  OVERLAY 

l  FROM 

TAPE.  IT 

STARTS 

BY  FIRST  TRANSFERING 

J ITSELF  TO  A  SA 

rE  PLACE 

IN  HIGH  CORE. 

00006*0060013 

OVLAY: 

JSR 

e.CPYL 

00007*060277 

INTDS 

00010*020476 

LDA 

0#  DRI VE 

0001 1 *062074 

DOB 

0  <  L  INC 

00012*054473 

STA 

3#  SAVE 

00013*02361 1 

LDA 

0#  #N*  3 

00014*040764 

STA 

0.NUB 

IOVERLAY  NUMBER 

000 1 5  *  03561 C 

LDA 

3»N+  1  #  3 

t AD DR  OF  LOWEST  ARRAY 

00016*030765 

LDA 

2#  F I RST 

00017*020765 

LDA 

0#LAST 

00020* 142400 

SUB 

2#  0 

»=NUMBER  OF  WORDS  TO  BE  MOVED 

00021  *  101400 

INC 

0#0 

00022*1 16400 

SUB 

0#3 

f  ADDR  TO  MOVE  TAPE  ROUTINE  TO 

00023* 100400 

NEG 

0  #  0 

00024 ' 025000 

ROUND: 

LDA 

1  #0#2 

00025*045400 

STA 

1  #  0#  3 

00026* 101405 

INC 

0#  0#  SNR 

00027*000404 

JMP 

OUT 

00030*151400 

INC 

2#2 

00031  *  175400 

INC 

3*3 

00032*000772 

JMP 

ROUND 

00033*1 56400 

OUT: 

SUB 

2*3 

I =DI STANCE  MOVED 

00034*030403 

LDA 

2*SHIFT 

00035*1 57000 

ADD 

2*3 

00036*001400 

JMP 

0.3 

J  GO  TO  HI-CORE  COPY 

00037*000040* 

SHIFT: 

.  +  1 

00040*020740 

LDA 

0.NUB 

00041  *  126520 

SUBEL 

1  *  1 

00042*122415 

SUB# 

1*0*  SNR 

00043*000407 

JMP 

A 1 

i OVERLAY  I 

00044*024735 

LDA 

l.TWO 

00045*12241 5 

SUB# 

1  *0*SNR 

00046*000407 

JMP 

A2 

t OVERLAY  2 

00047*020434 

LDA 

0.BLK3 

^OVERLAY  3 

00050*024434 

LDA 

1  *NBLK3 

00051 *000406 

JMP 

CAT 

00052*020425 

A 1  : 

LDA 

0.BLK1 

00053*024425 

LDA 

t.NBLKl 

00054*000403 

JMP 

CAT 

00055*020424 

A2 : 

LDA 

0.BLK2 

00056*024424 

LDA 

1  *NBLK2 

00057*152400 

CAT: 

SUB 

2*2 

00060*034415 

LDA 

3.SUBST 

00061 *054452 

STA 

3.RETRN 

00062*00441  1 

JSR 

NIXON 

00063*125005 

MOV 

1  *  l.SNR 
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00064  *  000377 

JMP 

377  t FORTRAN  START  ADDRESS 

00065  *  063077 

HALT 

JLINC  ERROR 

00066*020420 

LDA 

0.DRIVE  1  TRY  AGAIN  (PRESS  CONTINUE) 

00067*062074 

DOB 

0«  LINC 

00070*000750 

JMP 

SHIFT* 1 

00071 *060177 

N0G0: 

INTEN 

00072 ’0060C2S 

JSR 

§ .FRET 

00073*054412 

NIXON: 

STA 

3  . SAVE 

00074*000445 

JMP 

RLINC 

00075*002752 

SUBST : 

JMP 

§SAVE-RETRN, 1  » SUBSTITUTE  CONTENTS  FOR 

00076*000000 

ORIG: 

0 

00077*000350 

BLK 1  : 

350 

00100*000055 

NBLK1 : 

55 

00101 *000450 

BLK2: 

450 

00102*000037 

N8LK2: 

37 

00103*000510 

BLK3 : 

510 

00104*000037 

N8LK3: 

37 

00105*000000 

SAVE: 

0 

00106*000001 

DRIVE: 

1 

00107*000006 

JTHIS 

6 

ROUTINE 

ENABLES  A  FORTRAN  PROGRAM 

JTO  WRITE  BLOCKS  OF  CORE  ONTO  TAPE. 

001 10*006001S 

TAPE: 

JSR 

&.CPYL 

001 1 1 *060277 
001 12*102400 

INTDS 

SUB 

040 

001 13*062074 

DOB 

04LINC 

001 14*054771 

STA 

34SAVE 

00115*023612 

LDA 

040N+1.3 

00116*027613 

LDA 

l4@N+2.3 

00117*031614 

LDA 

2.N+3.3 

00120*037611 

LDA 

3.eN.3 

00121 *175005 

MOV 

3434SNR 

00122*000415 

JMP 

CLINC 

00123*1751  12 

MOVL# 

34  34  SEC 

00124*000404 

JMP 

NEGA 

00125*175234 

DOG: 

M0V2R# 

3.3.S2R 

00126*000415 

JMP 

WLINC  JMUST  BE  2 

00127*000412 

JMP 

RLINC  IMUST  BE  1 

00130*174400 

NEGA: 

NEG 

343 

00131 *150000 

COM 

2,2 

00132*000773 

JMP 

DOG 

00133*034752 

RETRN: 

LDA 

34  SAVE 

00134*047615 

STA 

1  4@N+4.3 

00135*060177 

00136*0060025 

INTEN 

JSR 

§  .FRET 

1  NOW  FOR  A  SLIGHTLY  MODIFIED  VERSION  OF  THE 

J STANDARD  L1NC 

TAPE  UTILITIES.... 

00137*152400 

CLINC: 

SUB 

2.2 

00140*000415 

JMP 

CHK2 

00141 *034426 

RLINC: 

LDA 

3.D2R 

001 42*00041 4 

JMP 

READS 

00143*034422 

WLINC! 

LDA 

3  4  D 1  W 

00144*054507 

STA 

3.DIXX 

00145*044500 

STA 

1  .D2XX 

00146*050416 

STA 

2  4  SAC2 

00147*004422 

JSR 

DO 

00150*024475 

raw: 

LDA 

1 .D2XX 

00151  *  122400 

SUB 

1.0 

00152*030412 

LDA 

2 4  SAC2 

00153* 151113 

00154* 1 50000 

00155*034472 

00156*054467 

00157  *034407 

00160*054473 

00161 *004410 

00162*060274 

001 63*000750 

00164*000000 

001 65*021000 

001 66 ' 0007  50 

00167* 132512 

00170*000000 

001 7 1 *054777 

00172*075474 

00173* 175112 

00174*000446 

00175*151  1  13 

00176*000410 

00177  *  1 50000 

00200* 176400 

00201  *  162000 

00202*060374 

00203*004467 

00204  *  1 01 401 

00205*000776 

00206*060174 

00207*004463 

00210*000777 

00211  *  175224 

00212*000766 

00213* 12S005 

002 1 4  *  0027  S4 

00215* 166000 

00216*040474 

00217*044474 

00220*024476 

00221  *  1 47000 

00222*000431 

00223*063674 

00224*000777 

00225  *  06347  1 

00226*000416 

00227*060474 

00230*1 16405 

00231 *000434 

00232*024465 

00233*000403 

00234*034462 

00235*024463 

00236*020454 

00237*000723 

00240*024461 

00241 *000721 

00242*024460 

00243*000717 

00244*060474 

00245*132512 

00246*041000 


CHKE : 

MOVL# 

COM 

LDA 

READS: 

STA 

EXIT: 

LDA 

STA 

JSR 

NIOC 

SAC2 : 

JMP 

0 

D1W: 

LDA 

D1RC: 

JMP 

D2R: 

SU8L# 

RETU: 

0 

DO: 

STA 

FINDR: 

DIB 

MOVL# 

JMP 

MOVL# 

JMP 

COM 

SUB 

FINDN: 

ADC 

N  I  OP 

JSR 

INC 

FINDF: 

JMP 

NIOS 

found: 

JSR 

JMP 

MOVZR 

JMP 

MOV 

read: 

JMP 

ADC 

STA 

STA 

LDA 

ADD 

JMP 

SKPDN 

RCHK : 

JMP 

SKPBN 

JMP 

DIA 

El  : 

SUB 

JMP 

LDA 

E2: 

JMP 

LDA 

E3: 

LDA 

LDA 

JMP 

LDA 

E4S 

JMP 

LDA 

RDAT: 

JMP 

DIA 

D2XX: 

SUBL# 

STA 

2/2/SNC 
2/2 
3/  D2C 
3/D2XX 
3  /  D 1 RC 
3/ D l XX 
00 

LINO 
RET  RN 

0 /  0  /  2 

READ-D1XX/ 1 
1/2/ SBC 

3  »  RETU 
3/LINC 
3  /  3  /  S SC 
E4 

2/2/  SNC 
F 1NDF 
2/2 
3/3 
3/0 
LINC 
GETBL 
0/0/SKP 
.-2 
LINC 
GETBL 
.-1 

3/3/S2R 
FINDR 
1/1 /SNR 
@RETU 
3/  1 

0/TEMPI 
1/TEMP2 
I/SIZE 
2/  1 
D 1  XX 
LINC 
.-1 
LINC 
RDAT 
0/LINC 
0/3/SNR 
SCHK 
1/Cl 
.♦3 

3/SIZE 
1  /  C2 
0/ TEMP  1 
EXIT 
I  /  C4 
EXIT 
1  /C8 
EXIT 
O/LINC 
1.2/SEC 
0/0/2 


C-21 


I 


00247 ' POO402 
00250’ 061 074 
00251 ' 1 1 7000 
00252 ' l 5 1 400 
00253 ' 02 1 000 
00254*063074 
00255*063674 
G0256 ' CO077  7 
00257  *063474 
00260  *  0007  7  0 
00261 *075074 
00262*075474 
00263* 175004 
00264*000756 
00265* 132414 
00266*000746 
00267*020423 
00270*024423 
00271 *00071 3 
00272*054420 
00273*034421 
00274*1 62432 
00275*000405 
00276*334417 
00277  *  1  62032 
00300*000740 
00301 *074474 
00302*063474 
00303*000777 
00304*063774 
00305*000774 
00306*074474 
O030T  1  16543 
00310*010402 
0031 1 *002401 
00312*000000  TEMPI 
00313*000000  TEMP2 ! 
00314*177770  MLIMj 
00315*000620  PLIM: 
00316*000400  5I2E: 

00317*000001  CIS 
00320*000002  C2: 

00321 *000004  C4: 

00322*000010  C8 : 


D2C : 

JMP 

.+2 

WDAT : 

DOA 

0,LINC 

BLOOP: 

ADD 

0>  3 

INC 

2.2 

D1XX: 

LDA 

0>0,2 

DOC 

0*  L I NC 

SKPDN 

LINC 

JMP 

.-1 

SKPBN 

LINC 

JMP 

WDAT 

WCHK : 

DOA 

3>  L I NC 

DIB 

3>  L I NC 

MOV 

3j3,SZR 

JMP 

E4 

SCHK: 

SUB# 

1 *2,S2R 

JMP 

E2 

NEXT: 

LDA 

0>TEMP1 

LDA 

1 >TEMP2 

JMP 

F INDN 

GETBL: 

STA 

3*TEMP1 

LDA 

3jMLIM 

WAIT: 


SU  82# 
JMP 
LDA 
ADCZ* 
JMP 
DIA 
SKPBN 
JMP 
S  KPDH 
JMP 
DIA 
SUBOL 
1SZ 
JMP 
0 
0 

177770 

620 

400 

1 

2 

4 

10 

-  END 


3*  0*  S2C 
WAIT 
3* PLIM 
3#  0#  S2C 
E3 

3>  LI NC 

LINC 

WAIT 

LINC 

WAIT-1 

3*LINC 

0^3/SNC 

TEMPI 

eTEMPl 


C-22 


! 


C  -  2  3 


17761 1 

.TITL 
.ENT 
.  EXTD 
•  NREL 
N  =  -  1  6 

00000*000002 

2 

00001  *  O0600 1 S 

COPY: 

JSK 

00002*054422 

STA 

00003*060477 

READS 

00004* 101122 

MOVrL 

00005  *  000414 

JMP 

00006*020417 

LDA 

00007  *06351  1 

SKPB2 

00010*000777 

JMP 

0001 1*061111 

DOAS 

00012*020414 

LDA 

00013*06351 1 

SKPB2 

00014*000777 

JMP 

00015*061 1 1 1 

DOAS 

00016* 1 02440 

SUBO 

00017*04361 1 

STA 

00020*000403 

JMP 

00021  *  1 02520 

PLTR: 

SUB2L 

00022*04361 1 

STA 

00023*006002$ 

BACK: 

JSR 

00024*000000 

S 

ACS  v: 

0 

00025*000033 

ESC: 

27. 

00026*000027 

ETB : 

23. 

COPY 

COPY 

. CYPL/ .FRET 


P.CYPL 
3  . ACSV 

0  1  CHECK  FOR  SWITCH  0 

0.0/S2C  I  OFF  =  463 1  ON=  PLOTTER 
PLTR 
0/  ESC 
TTO 
.-1 

0/  TTO 
0/  ETB 
TTO 
.-l 
0/TTO 
0/0 

0z@N/3  /PUT  A  EERO  SO  HARD  SKIPS 
BACK 

0/0  / PUT  A  ONE  TO  PLOT 

0 / @N  /  3 
6. FRET 


C-24 


177611 

177612 

177613 

177614 

177615 

177616 

177617 

00000 '000000 

SAVES 

.TITL 

.ENT 

•  EXTD 

•  NREL 
N=- 1 67 
N 1 =N+ 1 
N2=N+2 
N3=  N+3 
N4=N+4 
N5=N*5 
N6=Nt-6 
0 

OVLAP 
OVLAP 
•CPYL. . 

00001 *000000 

X5: 

0 

00002*000030 

X6s 

0 

00003*000010 

00004*006001$ 

OVLAP: 

10 

JSR 

e.CPYL 

00005*054773 

STA 

3. SAVE 

00006*02361  1 

UDA 

0.SN.3 

00007*02761  2 

LDA 

1 >§N1 ,3 

00010*03361 3 

LDA 

2.  @N2. 3 

0001  1 *037614 

LDA 

3*  @N3. 3 

00012*122512 

SUBL# 

1.0. SEC 

0001  3*000455 

JMP 

FI 

00014*172512 

SUBL# 

3.2. S2C 

0001 5*000426 

JMP 

F2 

00016* 162513 

SUBL# 

3.0.SNC 

00017  *  1 32512 

SUBL# 

1 .2. SEC 

00020*000533 

JMP 

NOGO 

00021  *  1 12512 

SUBL# 

0.2. SEC 

00022*00041 1 

JMP 

F3 

00023*136512 

SUBL# 

1.3. SEC 

00024 '000404 

JMP 

F  4 

00025*054754 

STA 

3.X5 

00026*040754 

STA 

0.X6 

00027*000514 

JMP 

OK 

00030*044751 

F4: 

STA 

1  .X5 

00031 *040751 

STA 

0.X6 

00032*00051 1 

JMP 

OK 

00033*136512 

F3  s 

SUBL# 

1  .3. SEC 

00034*000404 

JMP 

F5 

00035*054744 

STA 

3.X5 

00036*050744 

STA 

2.X6 

00037*000504 

JMP 

OK 

00040*044741 

F5: 

STA 

1  .X5 

00041 *050741 

STA 

2.X6 

00042*000501 

JMP 

OK 

00043*1 42513 

F2 : 

SUBL# 

2.0.SNC 

00044* 136512 

SUBL# 

1 .3. SEC 

00045 ' 000506 

JMP 

NOGO 

0  0046 '116512 

SUBL# 

0.3. SEC 

00047*00041 1 

JMP 

F  6 

00050* 132512 

SUBL# 

1.2. SEC 

00051 *000404 

JMP 

F7 

00052 '050727 

STA 

2.X5 

00053 ' 040727 

STA 

0.X6 

00054 ' 000467 

JMP 

OK 

00055*044724 

F7 : 

STA 

1  .X5 

00056*040724 

STA 

0.X6 

00057*000464 

JMP 

OK 

00060* 1 32512 

F  6 : 

SUBL# 

1.2. SEC 

4 


00061 *000404 

00062*050717 

00063*054717 

00064*000457 

00065*044714  FS : 

00066*054714 

00067*000454 

00070*172512  FIs 

00071 *000426 

00072* 166513 

00073* 112512 

00074*000457 

00075*132512 

00076*00041  1 

00077* 1 1 6512 

00100*000404 

00101 *054700 

00102*044700 

00103*000440 

00104*040675  F11S 

00105*044675 

00106*000435 

00107*116512  FI  0: 

001 10*000404 

001 1 1 *054670 

001 12*050670 

001 13*000430 

00114*040665  F12: 

00115*050665 

001  16*000425 

00117*146513  F9  S 

00120*1 16512 

00121*000432 

00122*136512 

00123*00041 1 

00124* 112512 

00125*000404 

00126*050653 

00127*044653 

00130*000413 

00131  *040650  F 1  4 : 

00132*044650 

00133*000410 

00134*112512  FI  3: 

00135*000404 

001 36*050643 

00137*054643 

00140*000403 

00141*040640  F  1  5  S 

001 42*054640 

00143*020636  OK: 

00144*024636 

00145*034633 

001 46*04361 5 

00147*047616 

00150*1 02520 

001 51 *043617 

001 52*O06002S 

00153*034625  NOGO: 

00154’ 102460 


JMP 

F  8 

STA 

2/X5 

STA 

3/X6 

JMP 

OK 

STA 

1  >X5 

STA 

3/X6 

JMP 

OK 

SUBL# 

3 / 2/ S2C 

JMP 

F9 

SUBL# 

3* 1 /SNC 

SUBL# 

0/2/ S2C 

JMP 

NOGO 

SUBL* 

1 / 2 / S£C 

JMP 

F 1 0 

SUBL# 

0/3/S2C 

JMP 

Fll 

STA 

3/X5 

STA 

l  >X6 

JMP 

OK 

STA 

0/X5 

STA 

1  >X6 

JMP 

OK 

SUBL# 

0/3/S2C 

JMP 

F 1 2 

STA 

3/X5 

STA 

2/X6 

JMP 

OK 

STA 

0/X5 

STA 

2/X6 

JMP 

OK 

SUBL# 

2# 1 >  SNC 

SUBL# 

0/3/S2C 

JMP 

NOGO 

SUBL# 

1 /3/S2C 

JMP 

F 1  3 

SU8L# 

0/2/52C 

JMP 

F  1  4 

STA 

2/X5 

STA 

1  »X6 

JMP 

OK 

STA 

0/X5 

STA 

1  /X6 

JMP 

OK 

SUBL# 

0/2/SHC 

JMP 

F  l  5 

STA 

2*  X  5 

STA 

3/X6 

JMP 

OK 

STA 

0/  X5 

STA 

3*  X6 

LDA 

0/X5 

LDA 

1»X6 

LDA 

3/ SAVE 

STA 

0/8N4/3 

STA 

1  /8N5/3 

SUBHL 

0/0 

STA 

0/  8N6/  3 

JSR 

8.  FRET 

LDA 

3/SAVE 

SUBC 

0/0 

• T I TL  DIGIT  r  ~ 

•  ENT  DIGIT 

•  EXTD  .CPYL* . FRET 

J - 

i 

}  FORTRAN  INTERFACED  DIGITIZER  ROUTINE 
1  AS  CREATED  BY  PAC  -- 

;  MODIFIED  MAR.  8*1976  TO  ACCOMODATE  ANALOG 

I 


•  NREL 


177611 

N  =  - 1  6  7 

000041 

D  VCE=  4 1 

00000 ' 002400 

MODE: 

2400 

00001 ' 000094 

4 

00002 ' 00600 1 S 

DIGIT: 

JSR 

00003*060277 

INTDS 

00004 ' 0207  7  4 

LDA 

0000S ' 06204 1 

DOB 

00006' 000457 

JMP 

00007 '063710 

LOOP: 

SKPD2 

00310*000466 

JMP 

0001 1 *020476 

LDA 

00012*061 041 

DOA 

00013*063641 

SKPDN 

00014*000777 

JMP 

0001  5 ' 06044 1 

D I  A 

00016*024466 

LDA 

00017  *  1 0651 3 

SU8L# 

00020*000767 

JMP 

00021 *020464 

LDA 

00022*061041 

DOA 

00023*063641 

SKPDN 

00024*000777 

JMP 

00025*060441 

DIA 

00026  *  04361  1 

STA 

00027*020457 

LDA 

00030*061041 

DOA 

00031 *063641 

SKPDN 

00032*000777 

JMP 

00033*060441 

DIA 

00034*043612 

STA 

00035* 1 02400 

SUB 

00O36'O4361 3 

STA 

00037*020422 

LDA 

00040*024422 

LDA 

00041 *063634 

SKPDN 

00042*000777 

JMP 

00043*066034 

DOB 

00044*061034 

DOA 

00045*02041 6 

LDA 

00046 ’ 04041 6 

STA 

00047 '060000 

DELAY : 

NIO 

00050*060000 

NIO 

00051 *014413 

DS2 

00052*000775 

JMP 

00053*1 02400 

SUB 

000S4'024406 

LDA 

00055*066034 

DOB 

00056*061034 

DOA 

;no  longer  device  42 


e.CPYL 

0*MODE 

0*DVCE 

BACK 

TTI 

HIT 

0*CH3  ;NO  LONGER  CHANNEL  0 
0  *  DVCE 
DVCE 
•  -  1 

0>  DVCE 
1  >C10O0 
0*1*  SNC 
LOOP 
0*  CH 1 

0*  DVCE  } GET  X 
DVCE 

.-1 

0*  DVCE 
0, @N»  3 
0  *  CHE? 

0*DVCE 

DVCE 

.-1 

0*  DVCE 
0*  @N+ I , 3 
0*0 

0*  §N*2*  3  f FERO  FOR  ICODE 

0  *  MAX 

1  *  CHLMP  I  ROUTINE  TO  FLASH  LAMP 

34  ; when  acknowledging  data 

.-1  IINTO  BLOCKS  PROGRAM 

1,34 
0,34 
0*  DEL 
0*  COUNT 
0 
0 

COUNT 

DELAY 

0*0 

1  *  CHLMP 

1*34 

0*34 


AD-AM*  693 

UNCLASSIFIED 


MINNESOTA  UNIV  MINNEAPOLIS  DEPT  OF  CIVIL  AND  MININ6  —ETC  F/O  13/2 
RATIONAL  DESIGN  OF  TUNNEL  SUPPORTS:  AN  INTERACTIVE  GRAPHICS  BAS— ETC (U) 
SEP  79  M  D  V0E6ELE  DACWA3-7A-C-0066 

WES/TR/GL-79-15  NL 


00057  *060 1 77 

INTEN 

C-28 

00060*006002$ 

JSR 

S.FRET 

00061 *003777 

MAX: 

3777 

t MAX  VOLTAGE  IS  5  VOLTS 

00062  *  000002 

CHLMP : 

2 

l  LAMP  CHANNEL  IS  # 2 

00063*050000 

DEL: 

50000 

1APPR0X.  0.15  SEC  DELAY  {LAMP  0 N> 

00064  *  000000 

COUNT: 

0 

I  HANG 

ON  UNTIL 

BUTTON  VOLTAGE 

i  IS  LESS  THAN  2 

•5  VOLTS 

00065*020422 

BACH: 

LDA 

0>CH3  )  NO  LONGER  CHANNEL  0 

00066*061041 

DOA 

0>DVCE 

00067  *063641 

SKPDN 

DVCE 

00070*000777 

JMP 

.-1 

00071 *060441 

DIA 

0>DVCE 

00072*024412 

LDA 

t  >  C 1 000 

00073' 106512 

SUBL# 

0>  1  *SHC 

00074*00077 1 

JMP 

BACK 

00075*000712 

JMP 

LOOP 

00076*024412 

HIT: 

LDA 

1  *MASK 

00077*060510 

DIAS 

0*  TTI 

00100* 123400 

AND 

1*0 

00101 *043613 

STA 

0  »  @N  +  2*  3 

00102*060177 

INTEN 

00103*006002$ 

JSR 

§  .FRET 

00104*001000 

Cl  000: 

1003 

00105*000020 

CHt : 

20 

001 06  *  000040 

CH2 : 

40 

00107*000060 

CH3 : 

60 

001 10*000177 

MASK: 

177 

•  END 

C-29 


001  c 

002  C 

- SECOND  OVERLAY - 

--ROUTINE  TO  BUILD  BLOCKS  FROM  LINES 

003 

COMMON  KEY (256), I BLOC <1  53  6) » IOUM(608) >1  1  (7681* 

004 

* 

I2(768),LIST(32),LISTC(  128)>  IX(512).,  IY(512) 

005 

COMM ON /HANDY /N>L#IACC 

006  C 
037  C 

N=NUMBER  OF  POINTS 

008  C 

L=NUM3ER  OF  LINES 

.009  C 
010 

N=LI ST ( 1 ) 

01  1 

L=L 1  ST (2 ) 

012 

I ACC=LI ST ( 3 ) 

013 

I F ( L  «LE • 2 )  GOTO  18 

014 

PI=4.0*ATAN( 1 .0) 

015 

PI2  =  2 • 0*PI 

016 

PI0S=0.5*PI 

017 

PI  1 80= PI /360 • 

018 

LSI T= 1 00300K 

019 

MASK=77777K 

020 

K=1 

021 

NBLOC=0 

022  C 

--SET 

FLAGS  ON  ALL  LINES — 

023 

DO  l  LL=1*L 

024 

I 1 (LL)=I 1 (LL) .OR.LBIT 

025 

1 

1 2 ( LL)  =  1 2  <  LL) .OR.LBIT 

026  C 

--FIND 

IF  ANY  FLAGS  STILL  LEFT-- 

027 

2 

DO  3  LL= 1 jL 

028 

1FCI1CLL) . AND .LB1T)  GOTO  4 

029 

IF(I2(LL).AND.LBIT)  GOTO  5 

030 

3 

CONTINUE 

031 

I F < NBLOC . GT . 0 )  GOTO  17 

032 

18 

CALL  OVLAY ( 1 j KEY ) 

033 

PAUSE 

034 

GOTO  18 

035 

17 

KEY(NBL0C*1 )=K  JALL  FLAGS  MUST  BE  DOWN. 

036 

CALL  CHARO( 1 35)  J  FIND  CENTROIDS  ETC. 

037 

CALL  CENT (NBLOC) 

038 

4 

1 1 CLL  >  =  I 1 (LL) .AND. MASK 

039 

1END1=11 (LL) 

040 

I END2= I 2 (LL) .AND. MASK 

041 

GO  TO  6 

042 

5 

I2(LL)= I2(LL) .AND. MASK 

043 

I END1 = I 2 ( LL ) 

044 

IEND2=I1(LL)  J(FLAG  MUST  ALREADY  BE  DOWN ) 

045 

6 

1START=IEND! 

046 

I PNT  = 1 

047 

LISTCd  )  =  LL 

048 

GAMSUM=0.0 

049 

IXD=IX(IEND2)-IX(IEND1  ) 

050 

IYD=IY< IEND2) -1 Y( IEND1  ) 

051 

IF( I XD.NE .0)  GOTO  8 

052 

IFOYD.LT. 0)  GOTO  7 

053 

ALFOLD=PI /2 . 0 

054 

GOTO  9 

055 

7 

ALFOLD= 1 •  5*PI 
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6 


I 


1 


056 

057 

058 

059 

060 

061 

062 

063 

064 

065 

066  C- 
067 
068 
069 
070 
071 
072 
07  3 
074 
075 
076 
077 
07  8 
079 
080 
081 
082 
083 
084 
08S 
086 
087 
088 
089 
090 
091 
092 
093 
094 
095 
096 
097 
098 
099 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109  C- 

110 


GOTO  9 

8  A.LFOLD  =  ATAN ( ABS ( FLOAT ( I  YD) /FLOAT < IXD) >  > 
IFCIXD.LT. 0)  GOTO  10 

1FCIYD.GT.0)  GOTO  9 
ALF0LD=PI2-ALF0LD 
GOTO  9 

10  IFCIYD.GT.O)  GOTO  11 
ALFOLD=ALFOLD+PI 
GOTO  9 

11  ALFOLD=PI -ALFOLD 

-FIND  MOST  CLOCKWISE  LINE  FROM  LL-- 

9  LMAX=  0 
GAMAX=  P I 

DO  12  LIN= 1 *L 
IF  CLIN.EQ .LD  GOTO  12 
IFC I  1 (LIN) .AND.LBIT)  GOTO  13 
16  IFCI2CLIN) .AND.LBIT)  GOTO  14 
GOTO  12 

13  IFCCIKLIN). AND. MASK). NE.IEND2)  GOTO  16 
IEt=IEND2 

IE2=I2(LIN) .AND .MASK 
GOTO  15 

14  IFCCI2CLIN). AND. MASK). NE.IEND2)  GOTO  12 
I E 1 = I END2 

I E2= I  1  CLIN) .AND. MASK 

15  IXD=IXCIE2)-IXCIE1 ) 

IYD=IY(IE2)-IY(IE1 ) 

IFCIXD.NE.0)  GOTO  20 
IFC IYD.LT .0)  GOTO  19 
ALF=PI/2.0 

GOTO  22 

19  ALF= 1 . 5*PI 
GOTO  22 

20  ALF=ATAN  C ABS  C  FLOAT  CIYD)/FLOATCIXD)>) 

IFCIXD.LT. 0)  GOTO  21 
IFCIYD.GT.0)  GOTO  22 
ALF=PI2-ALF 

GOTO  22 

21  IFCIYD.GT.0)  GOTO  23 
ALF=ALF  +  PI 

GOTO  22 

23  ALF=PI -ALF 

22  GAM=ALF-ALFOLD 
IFCGAM.GE -PI >  GAM=GAM-PI2 
IFC  GAM .LT • -  PI )GAM=GAM+PI2 
IFCGAM.GE. GAMAX)  GOTO  12 

GAMAX=GAM  JMOST  CLOCKWISE  ANGLE  YET... 

LMAX=LIN  | . .WITH  ITS  CORRESPONDING  LINE. 

ALFMAX= ALF 
I  ED  1  =  I E 1 
I  ED2  =  I E2 

12  CONTINUE 

IFCLMAX.EO.0)  GOTO  28  ) DEAD  END  ! 

-KNOCK  DOWN  FLAG  FOR  THAT  LINE-- 

IFCCI 1 CLMAX). AND. MASK). EQ.IED2)  GOTO  24 


j 


i 
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111 

I 1 (LMAX )  =  I  ED  1 

112 

GOTO  25 

113 

24 

1 2  (  LMAX )  =  1  ED  1 

114 

25 

GAMSUM=GAMSUM+GAMAX  1  SUM  OE  ALL  BLOCK 

ANGLES 

115 

IPNT=IPNT*1  J  POINTER  TO  TEMP. 

LIST  OE 

LINES 

116 

L I STC ( I PNT ) =  LMAX 

117 

IEOED2.EQ. ISTART)  GOTO  26 

118 

LL=LMAX  t NEW  LINE  BECOMES 

OLD  LINE 

119 

ALEOLD= ALEMAX 

120 

I END2= I ED2 

121 

GOTO  9 

122 

26 

I E  ( GAMSUM .GT «0.0)GOTO  2 

123 

NBL0C=N8L0C+ 1 

124 

KEY (NBLOC)=K 

125 

C--THE 

NEXT  SECTION  MERGES  ADJACENT  LINES 

IE 

126 

C--THEY 

HAVE  NEARLY  EQUAL  SLOPES*  AND  WRITES 

127 

C--THE 

RESULTING  LIST  OE  POINTS  ONTO  I8L0C(  > 

128 

L I NE  =  LI ST  C  (  1 ) 

129 

IEdSTART.E0.Il  (LINE))  GOTO  31 

130 

IP1=I 1 (LINE) .AND. MASK 

131 

GOTO  32 

132 

31 

I P 1 = I 2 (LINE) .AND. MASK 

133 

32 

1X1 =IX( IP1 ) 

134 

IY1=IY(IP1 ) 

135 

IX0=IX( ISTART) 

136 

IY0=IY( ISTART) 

137 

I XD- I X 1 - I X0 

138 

I  YD- 1 Y 1  - 1 Y0 

139 

I E( I XD . EQ .0)  GOTO  43 

140 

ALEl=ATAN2(EL0AT(IYD>*EL0AT(IXD> ) 

141 

GOTO  44 

142 

43 

ALF 1 =S I GN ( PI  05*  ELOAT ( I Y l ) > 

143 

44 

ALF 1 R=ALE 1 

144 

DO  50  I K=2» I PNT 

145 

IF(IK.EQ.IPNT)  GOTO  51 

146 

LINE=L I STC( IK) 

147 

IE(IP1 .EQ.I1 (LINE))  GOTO  41 

148 

I P2= I 1 (LINE). AND. MASK 

149 

GOTO  42 

150 

41 

I P2= 12 ( LINE) .AND. MASK 

151 

42 

IX2=IX(IP2> 

152 

I Y2= I Y ( I P2 ) 

153 

47 

I  XD=  I  X2- 1 XI 

154 

I YD=I Y2- I Y1 

155 

I F ( I XD • EQ . 0 >  GOTO  45 

156 

ALE2  =  ATAN2(EL0AT( I  YD ) » FLOAT ( I XD ) ) 

157 

GOTO  46 

158 

45 

ALE2  =  S I GN (PI  05*  ELOAT(IY2) ) 

159 

46 

IE(ABS(ALE2-ALF1 ) .LT.PI 180)  GOTO  53 

160 

I  BLOC (K )  =  I P 1 

161 

K=K*1 

162 

I  PI = I P2 

163 

ALE  1 =ALF2 

164 

I X 1 = I X2 

165 

- 

I Y 1 = I Y2 
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166 

GOTO  50 

167 

51 

I  X2  = I X ( I  START ) 

168 

IY2=IYC ISTART) 

169 

GOTO  47 

170 

53 

I P 1  =  I  P2 

171 

50 

CONTINUE 

172 

C--LAST 

LINE  TO  DO  NOW — 

173 

IFCABS(ALF1R-ALF1).LT.PI180)  GOTO  48 

174 

IBLOC(K)= ISTART 

175 

K=K  + 1 

176 

48 

IFCK-KLYCNBLOC) .GT.2)  GOTO  52 

177 

C--WEED 

OUT  THIN  BLOCKS-- 

178 

K=KEY (NBLOC) 

179 

NBLOC=NBLOC-l 

180 

GOTO  2 

181 

52 

Kl=KEY(NBLOC) 

182 

K2=K-1 

183 

CALL  PLOTS (0> IXCIBLOC(K2))>IY(I BLOC (K2: 

184 

DO  49  KB  =  K1 »K2 

1SS 

49 

CALL  PLOT S(l*lX(IBLOCCKB))#IY(IBLOC(KB! 

186 

GOTO  2 

187 

C--DEAL 

WITH  DEAD  END-- 

188 

28 

I 1 (LL)  = I 1 (LL) .AND. MASK 

189 

1 2  (  LL)  =  1 2  ( LL) .AND. MASK 

190 

IFCIPNT.LE.l 1  GOTO  2 

191 

I PNM  = I PNT- 1 

192 

I TO= I  START 

193 

C--RESTORE  FLAGS  TO  PRECEEDING  LINES-- 

194 

DO  30  I L= 1 » I PNM 

195 

LINE=LISTC(IL) 

196 

IF<ITO.EO.1 1  CLINE))  GOTO  33 

197 

I TO= I l (LINE) .AND. MASK 

198 

I2CLINE)  =  12  CLINE) .OR.LBIT 

199 

GOTO  30 

200 

33 

IT0=I2(LINE) .AND. MASK 

201 

1 1  (LINE) =  I 1  CLINE) .OR.LBIT 

202 

30 

CONTINUE 

203 

GOTO  2 

204 

END 
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001 

002  C 
003 
004 
005 
006 
007 
008 
009 
010  C 
01 1 
012 
013 
014 
015 
016 
017 
018  C 
019 
020 
021 
022 
023 
024 
025 
026 
027 
028 
029 
030 
031 
032 
033 
034  C 
035 
036 
037 
038 
039 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
051 
052 
053 
054 
055 


subroutine:  centcnbloci 

--TO  FIND  THE  AREAS  AND  CENTROIDS  OF  ALL  BLOCKS 

COMMON  KEY<256)*I BLOC ( 15361 >LENG  < 1536)> IAREA(256>, 

*  ICX<2S6>/ICY<2S61,IX(512>,IY(512> 

COMMON/HAND Y/N,L, I  ACC 
AMI  N= IACC*IACC*S 
DO  1  N=  1  , NBLOC 
K1=KEY<N> 

K2=KEY  <N  + 11-1 

— FIND  LOWER  LEFT-HAND  CORNER- - 
1 XM= 1023 
I YM=780 
DO  3  K=K 1 ,K2 
I  P=  I  BLOC  <K1 

IFCIX(IP) .LT. IXM)  I XM  =  I  X ( I P ) 

IFOY(IP).LT.IYM)  I  YM  =  I  Y  (  IP) 

3  CONTINUE 

— FIND  BLOCK  AREAS-- 
AREA 1 =0 • 0 
AREA2=0.0 
I  PI  =  1  BLOC  <K2 1 
DO  2  K  =  K  1 /  K2 
I P2=I BLOC (K 1 
IX1=1X(IP1)-1XM 
1X2=1 XC IP21-IXM 
IY2=IY<I P2 ) - 1 YM 
IY1=IY<IP1 1-IYM 

AREA  1 =AREA 1 +FLOAT (IX2-1X1 1  * FLOAT  CIY1  +  IY2) /2 • 0 
AREA2  =  AREA2+FL0AT  <  l Y2-1 Y 1  1*FL0ATUX  1  +  1X21/2.0 

2  I  PI  =  I P2 

AREA= (AREA 1-AREA2 1/2.0 
IFtAREA.LE.AMIN)  GOTO  13 
I AREA  = AREA /AMI N 

--NOW  FIND  MOMENTS  OF  AREAS  ABOUT  IXM,  IYM-- 
XM=0.0 
YM=0 • 0 

I P 1  =  I  BLOC  <K2 1 
DO  12  K=K 1  *  K2 
I P2= I  BLOC (K  > 

IX|=IX<IP1 )-IXM 
I X2= IX<IP21-I XM 
IYI=IYCIP11-IYM 
IY2=IY<IP2)-IYM 
FI =FL0AT(IX2-IX1 1/2.0 
F2=FL0AT< IX2+IX1 1 
IF<IY2-IY1)  5,6/7 

6  XM=XM+F1*F2*FL0AT<IY1 1 
GOTO  8 

5  XM=XM+F 1  * (F 2* FLOAT  <IY21+FLOA3(IYl-IY21*FLOAT<2*IXl+IX21/3.0> 
GOTO  8 

7  XM=XM+F 1  * <F2+ FLOAT  (  I Y  1 1  +FL0A1C  I Y2- l Y1 1 * FLOAT ( I X 1  +  1X2 *2 1 /3 . 0> 

8  GI=FL0AT(IY2-IYl 1/2.0 
G2=FL0AT(IY2+IY1 1 
IF<IX2-1X11  9,10,11 

10  YM=YM-G  1  *G2* FLOAT  C  I XI 1 
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056 
057 
058 
059 
060 
061 
062 
063 
064 
065 
066 
067  C 
068 
069 
070 
071 
072 
073 
074 
07  5 
07  6 
077 
078 
079 
080 
081  C 
082 
083 
084 
085 
086 
087 
088 
089 
090 
091 
092 
093 
094 
095 
096 
097 
098 
099 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 


GOTO  12 

9  YM=YM-G1* (G 2* FLOAT  C  I  X2  > ♦FLOAT (  I  X 1  -  I X2 ) * FLOAT CIY2+2*IYl)/3.0) 
GOTO  12 

1 1  YM  =  YM-G 1  * (G2*FL0AT C  IX  1  >  +FLOAT ( I  X2-  I  XI  >* FLOAT ( I Y 1 +2* I Y2 ) /3 . 0 ) 

12  I  PI  =  I P2 

ICX(N)=IFIX(  XM/AREA+-0 •  5  >  +  I XM 
ICY(N)=IFIXCYM/AREA+0.S)+I YM 
CALL  CROSSC ICXCN) » ICY(N) > 

GOTO  1 

13  1  AREA (N ) =0 • 0 
1  CONTINUE 

TO  COMPUTE  THE  LENGTHS  OF  EACH  EDGE- - 
DO  80  N= 1 >  NBLOC 
K 1 =KEY  (N  ) 

K2=KEYCN+11-1 
1 PA= I  BLOC (K2 ) 

KN=K2 

DO  81  K  =  K 1 >  K2 
I PB= I  BLOC (K ) 

XDI F  =IX(IPB)-IX(I PA ) 

YDIF=IY(IPB)-IY  ( 1PA  ) 

LENG(KN)=SQRT(XD1F*XDIF+YDIF*YDIF)  ♦  0.5 
KN  =  K 

81  I PA  =  I PB 

80  CONTINUE 


25  CALL  CURS < I D j I XX» I YY > 

CALL  CHARO (159) 

IFCID.E0.197)  GOTO  20  '  "E"  FOR  •’ERASE" 

IFC 1D.EQ.200)  GOTO  30  J  "H"  FOR  "HARD  COPY” 

IF ( I D • EQ • 208 )  GOTO  50  ;"P"  FOR  "PHASE..." 

IFCID.EO. 193)  GOTO  22  ;" A"  FOR  "ALL" 

IFCID.EQ.21 1 )  GOTO  60  J  "S"  FOR  "SINGLE" 

IFCID.EO. 210)  GOTO  70  I "R”  FOR  "RESTORE" 

GOTO  25 

20  DO  24  N= 1 »NBLOC 

IFCIABSC ICXCN)-IXX) .GT. IACC)  GOTO  24 
IFCIA8S(ICYCN)-IYY).GT.IACC)  GOTO  24 
IFCIAREACN) .LE.0)  GOTO  24 
IAREACN)=-I AREACN) 

GOTO  22 
24  CONTINUE 
GOTO  25 

22  CALL  CHARO (155) 

CALL  CHAROC 140) 

DO  21  N= 1 .NBLOC 
IFCIAREACN) .LE.0)  GOTO  21 
Kl =KEY  CN) 

K2=KEY (N+ 1 ) - 1 

CALL  PLOTS (0. IXCIDL0CCK2) ) , I YC I  BLOC CK2 )  )  ) 

DO  23  K  =  K 1 > X2 

23  CALL  PLOT SC l.IXCIBLOCC  K) > , I Y( I BLOCC  K))) 
CALL  CROSS(ICX(N)*ICY(N>) 

21  CONTINUE 
GOTO  25 


c- 


111 

30 

CALL  COPY  CISWIT)  J  CHECK  FOR  SWITCH 

112 

IFCISWIT  .EO.  0  )  GO  TO  25 

113 

DO  31  N=l, NBLOC 

114 

IF C IAREACN) .LE • 0 )  GOTO  31 

115 

K 1 =KEY ( N ) 

116 

K2=K£Y (N+ 1 > -1 

117 

1 1  =  I X ( IBLOC (K2) ) *4-2047 

118 

I2=IY(IBL0CCK2) ) *4 -2047 

119 

CALL  PLOT<I 1.12,3) 

120 

DO  32  K=K1,K2 

121 

Il=IX(IBLOC<K>)*4-2047 

122 

1 2=1 YCI BLOC CK) ) *4-2047 

123 

32 

CALL  PL0Tdl,I2»2) 

124 

IC1=ICX(N>*4 

125 

IC2=ICYCN)*4 

126 

CALL  PLOTdCl  -2087,  IC2-2047.3) 

127 

CALL  PLOTCIC1-2007, IC2-2047.2) 

128 

CALL  PLOTdCl  -2047,  IC2-2087.3) 

129 

CALL  PLOTdCl -2047,  IC2-2007, 2) 

130 

31 

CONTINUE 

131 

CALL  PLOT (-20 47, -2047, 3) 

132 

GOTO  25 

133 

40 

CALL  CHAROC 1 55) 

134 

CALL  CHAROC140) 

135 

CALL  OVLAY ( 1 , KEY ) 

136 

GOTO  25 

137 

50 

CALL  CHARI (  IN  ) 

138 

IFdN.EQ.177)  GOTO  40  J"l"  FOR  "PHASE  1* 

139 

I F ( IN  .NE *  179)  GOTO  25  i" 3"  FOR  "PHASE  3‘ 

140 

CALL  CHARO ( 155) 

141 

CALL  CHAROC 140) 

142 

I  BLOC  C  1  536) =N8L0C 

143 

CALL  OVLAY  <  3, KEY ) 

144 

GOTO  25 

145 

60 

DO  61  N= 1 , NBLOC 

146 

I F < I ABS <ICXCN)-IXX) .GT.IACC)  GOTO  61 

147 

IFUABSdCY(N)-IYY)  .GT.IACC)  GOTO  61 

148 

GOTO  62 

149 

61 

CONTINUE 

150 

GOTO  25 

15! 

62 

NN=N 

152 

IF  < I AREA<NN ) • LE  » 0  >  GOTO  25 

153 

CALL  CHARO (155) 

154 

CALL  CHAROf l 40) 

155 

K1=KEY(NN) 

156 

K2=KEY  <NN> 1 )-l 

157 

CALL  PLOTS (0,IX<IBLOC(K2)),IYd3LOC(K2)>) 

158 

DO  63  K=K 1 , K2 

159 

63 

CALL  PLOTS  d.IXd  BLOC  <K)),IYUBLOCCK))> 

160 

CALL  CROSSdCX(NN)  ,  ICYCNN)  ) 

161 

CALL  CHARI < IN) 

162 

I F ( IN .NE • 197)  GOTO  22 

163 

I  AREA  CNN ) =-I ABS d AREA  CNN) ) 

164 

GOTO  22 

165 

70 

DO  71  N=l, NBLOC 

166 

IFC IAREA<N> ,G£.0>  GOTO  71 

167 

I  AREACN)  =  IABSU  AREA(N)  ) 

168 

71 

CONTINUE 

169 

GOTO  22 

170 

END 
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List  of  Phase  3  Global  Symbols 


Symbol 

Name 

Originating 

Routine 

Purpose  of  Symbol 

CONTR 

CONTR 

Iteration  and  Control  routine  entry 

FEET 

INPUT 

ASCII  Length  Descriptor 

MOVFL 

INPUT 

Memory  overflow  message 

MU 

FORD 

Default  value  of  friction  coefficient 

OPT  IN 

CYCLE 

Pointer  to  option  input  routine 

POUND 

INPUT 

ASCII  force  descriptor 

PUP 

REBOX 

Pressure  segment  test  entry 

TRANS 

TRANS 

Initial  translation  routine  entry 

.ALLS 

UPDAT 

Pointer  to  routine  to  update  all  blocks 

.ALPH 

UTIL 

Pointer  to  routine  to  set  Tektronix  in  alpha  r.oce 

.AXIS 

UTIL 

Pointer  to  routine  to  draw  axes  on  screen 

.BSIZ 

TRAMS 

Number  of  words  in  block  data  arrays,  excluding  corners 

•  C100 

CONTR 

A  constant  (=100  octal) 

.CHEK 

UTIL 

Pointer  to  routine  check  if  character  is  a  digit 

•  CLNC 

TAPE 

Pointer  to  cape  checking  routine 

.CPNT 

UPDAT 

Pointer  to  word  that  can  be  changed 

.CURS 

TEK 

Pointer  to  routine  that  enables  cursor 

.  DB0 

UTIL 

Pointer  to  Decimal  to  Binary  conversion  routine 

.  DB I N 

UTIL 

Pointer  to  Decimal  to  Binary  conversion  routine 

.  DCM 

MOUIT 

Pointer  to  routine  to  move  a  fixed  block 

-DIS3 

DISPL 

Pointer  to  routine  that  plots  a  single  block 

.DISP 

DISPL 

Pointer  to  routine  that  plots  all  blocks  on  paper 

.OISS 

DISPL 

Pointer  to  routine  that  plots  all  blocks  on  screen 

.  0M3N 

INPUT 

Block  number  of  fixed  block  to  be  moved 

.DM  BP 

INPUT 

Block  data  pointer  of  fixed  Mock  to  be  moved 

.EMPT 

TRANS 

Head  of  empty  list 

.FORD 

FORD 

Pointer  to  force/displacemest  routine 

.GETT 

UTIL 

Pointer  to  routine  to  accept  keyboard  character 

.  HEAV 

LOADS 

Pointer  to  routine  to  modify  block  weights 

.  H I T  C 

UTIL 

Pointer  to  routine  to  detect  cursor  hit  on  Mock 

.HITS 

HITS 

Pointer  to  routine  to  detect  cursor  hit  on  edge 

.  IACC 

UTIL 

Accuracy  limit  for  hits  on  centroids 
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E 

r 


.  IN? 

lilf'liT 

Pointer  to  friction  input  routine 

.ir-;::. 

IJTIL 

Pointer  to  binary  to  decimal  conversion  routine 

.  KrT 

CYCLE 

Pointer  to  routine  to  calculate  kinetic  energy 

.LEW 

UTIL 

Pointer  to  routine  to  return  length  of  an  edge 

.LODE 

INPUT 

Pointer  to  routine  for  numerical  applied  load  input 

.LPAP 

COfITR 

Flag  for  hard  copy  load  plot  option 

•  LPLS 

DISPl. 

Pointer  to  routine  for  plotting  loads  on  screen 

.Ml 

TRANS 

Pointer  to  start  of  block  data  pointers 

.M2 

TRAMS 

Pointer  to  start  of  block  data  arrays 

.M3 

TRAMS 

Pointer  to  start  of  boxes 

.  M4 

TRAMS 

Pointer  to  start  of  linked  lists  of  block  corners 

.115 

TRAMS 

Pointer  to  start  of  block  pointers  to  contact  lists 

.M6 

TRAMS 

Pointer  to  start  of  linked  list  area 

.M7 

TRAMS 

Pointer  to  start  of  free  memory 

.MEM 

TRANS 

Highest  memory  location 

-MESS 

UTIL 

Pointer  to  routine  that  prints  messages  on  screen 

.MFLG 

INPUT 

Flag  for  displacement  control  option 

.MOT 

MQT  IQ 

Pointer  to  law  of  motion  routine 

.MOVE 

INPUT 

Pointer  to  input  routine  for  moving  fixed  block 

.MSKR 

REBOX 

A  constant  (377  octal) 

•  NUN 

TRANS 

Total  number  of  blocks 

.NVEC 

DISPL 

Flag  for  printing  vector  magnitudes 

.O'/L 

TAPE 

Pointer  to  routine  to  read  first  overlay 

UTIL 

Pointer  to  routine  that  clears  the  screen 

.PFMT 

INPUT 

Head  of  pressure  segment  empty  list 

.PI  LG 

CONTR 

Flag  to  control  plotting  when  running 

.  PLTS 

TEK 

Pointer  to  line  drawing  routine  entry 

.PON1 

PONT 

Pointer  to  routine  that  returns  global  coordinates 

.PON  2 

PONT 

Pointer  to  quick  entry  to  above  routine 

.PP.ES 

INPUT 

Head  of  pressure  segment  list 

.PR, -11 

UTIL 

Pointer  to  routine  that  prints  a  single  character 

.  PRN2 

UTIL 

Pointer  to  routine  that  prints  character  in  AC£> 

.PSEG 

INPUT 

Pointer  to  pressure  segm.ent  input  routine 

.PSI2 

TRANS 

Number  of  words  in  each  contact  entry 

.READ 

TAPE 

Pointer  to  routine  to  read  a  stored  data  set 

.RE3X 

REBOX 

Pointer  to  re-boxing  routine  entry 

.REGZ 

REBOX 

Pointer  to  re-boxing  routine,  alternate  entry 

-  .W-.  an ii  i  in  irltiiiifitflijtoiiifaii 
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.RLNC 

TAPE 

Pointer  to  tape  reading  routine 

.ROT 

MOT  10 

Constant  or  integration  for  angular  velocity 

.  RSlT 

CYCLE 

Pointer  to  routine  that  resets  cycle  counter 

.  SCAL 

UTIL 

Pointer  to  vector  scaling  routine 

.SING 

UPDAT 

Pointer  to  single  block  updating  routine 

.  SPRP 

INPUT 

Pointer  to  beginning  of  friction  table 

.STEP 

CYCLE 

Pointer  to  routine  to  increment  cycle  counter 

.  SYCL 

INPUT 

Freouency  of  movement  of  fixed  block 

.TIME 

FORD 

Pointer  to  routine  to  change  time  .step 

.TPRN 

CYCLE 

Pointer  to  routine  that  displays  cycles 

-TREC 

MOT  10 

Inverse  time  step 

.TYP 

UTIL 

Pointer  to  return  surface  type  number  for  edge 

.UD 

INPUT 

Unit  of  displacement 

.UINP 

INPUT 

Pointer  to  units  input  routine 

.UREP 

CONTR 

Update  frequency 

.  uw 

INPUT 

Unit  weight 

.VEC 

CONTR 

Vector  plotting  flag 

.V  FAC 

UTIL 

Vector  scaling  factor 

■  WLNC 

TAPE 

Pointer  to  tape  writing  routine 

.WORD 

UTIL 

Pointer  to  routine  to  get  alphanumeric  string 

.WRIT 

TAPE 

Pointer  to  routine  to  store  a  data  set 

.XCGD 

INPUT 

X  -  component  of  fixed  block  displacement 

.  YCGD 

INPUT 

Y  component  of  fixed  block  displacement 
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•  TITL  TRANS 

J  TO  CREATE  NEW  DATA  STRUCTURES  FROM 
} THE  ORIGINAL  FORTRAN  ARRAYS. 


•  ENT 

TRANS. .M 1 . .M2. .M3. .NUM. .BSI2 

•  ENT 

•  M4..M5..M6..M7.. EMPT. .PS  I 2 

•  ENT 

.MEM 

•  EXTN 

CONTR 

•  EXTD 

.P0N1 . .P0N2. .ALLB. .DISS. . MSKR 

•  EXTD 

•  2REL 

. OVL. .MESS. .TPRN 

00000-003000 

.MEM5 

0 

J  HI GHEST  MEMORY  LCTN 

00001-000000 

.Ml : 

0 

00002-000000 

•  M2: 

0 

00303-000000 

.M3: 

0 

00304-000000 

•  M4: 

0 

l LINK  ARRAY  START 

00005-000000 

.M5 : 

0 

J  LINK  ARRAY  END* 1 

00006-000000 

•  M6  : 

0 

00007-000000 

•  M7 : 

0 

t NEXT  FREE  CORE  LOCATION 

00010-000000 

.EMPT: 

0 

; NEXT  EMPTY  LIST  START 

000 1  1 -0000 1  4 

.PS  12: 

14 

1  PROD  ENTRY  SI2E 

00012-000000 

•  NUM: 

0 

S NUMBER  OF  BLOCKS 

00013-000025 

•BSI2: 

25 

•  NREL 

iSTART  OF  POINT  DATA 

00000  *  000000 

AREA: 

0 

J FORT  RAN  COMMON  LOCATIONS 

00001 *000000 

ICX: 

0 

00302*000000 

ICY: 

0 

00003*000000 

KEY: 

0 

03004*000000 

LENG: 

0 

00335*000404 

NMAX: 

404 

J  TOP  OF  PROGRAM  AREA 

00006*000400 

F  400 : 

400 

00007*000417* 

NEXTR: 

NEXT 

000012 

.RDX 

10 

1  FOLLOWING  SI  EES  MUST  BE  CHANGED  IF 

J COMMON 

BLOCK 

IS  CHANGED  IN  THE 

.•FORTRAN  PROGRAMS.  PHASES  1  £  2 

00010'03001 1  * 

TBL: 

.♦1 

0001 1*001001 

513 

J  IY  ) 

00012 '001 000 

512 

I  IX  ) 

0001 3*000400 

256 

;  icy  ) 

03014*000400 

256 

IICX  > 

0001 5  *  000400 

256 

JIAREA  )  FORT.  ARRAY  NAMES 

00016*003000 

1  536 

ILENG  ) 

00017*003000 

1  536 

I I  BLOC  ) 

00020*300400 

t 

256 

J  KEY  > 

00021  *  1 77770 

COUNT: 

-8 

} MINUS  NO.  OF  ARRAYS 

0O0010 

.RDX 

8 

03022*001000 

STEP: 

1  000 

00023’ 100600 

HIGH: 

77600*1000  >  ALLOWS  200  WD5  FOR  LDR 

00024*000303* 

IPXR: 

IPX 

00025*000304* 

I PYR : 

IPY 

00026*000000 

I  BLOC: 

J 

TRANS: 

0 

00027*03476 1 

LDA 

3. TBL 

00330*030771 

LDA 

2. COUNT 

0003!  *  126400 

SUB 

1  .  1 

JTO  FIND  TOTAL 

COMMON  BLOCK  SI  EE 

00032*021 400 

SUM  : 

LDA 

0.0.3 

00033' 107030 

ADD 

0.  1 

00034’ 1 75400 

INC 

1 .  - 

j 

>j 


00035* 151404 

INC 

00036*000774 

JMP 

SUM  L  4 

1  COMMON  SIHE  IN  AC1 

{  NOW 

S I  EE  CORE 

00037*020763 

LDA 

0.  STEP 

00040*034763 

LDA 

3, HIGH 

00041  *  1  1 6400 

SUB 

0>  3 

00042*055777 

STA 

3.-1 >3 

00043*031777 

LDA 

2.-1 .3 

00044  *  1 56414 

SUB# 

2.3.SER 

00045*030774 

JMP 

.-4 

00046*050000- 

STA 

2. .MEM 

5  HIGHEST  USEABLE  MEMORY  IS  IN  AC2 

00047  *  1 32400 

SUB 

1.2  1  LOWEST  LOC.  OF  COMMON 

00050*050733 

STA 

2. KEY 

{COMPUTE  LOCATIONS  OP  INDIVIDUAL  ARRAYS 

00051 *024747 

LDA 

t.TBL+10 

00052* 133000 

ADD 

1.2 

00053  *  0507S3 

STA 

2.1  BLOC 

00054*024743 

LDA 

l.TBL+7 

00055* 1 33000 

ADD 

1.2 

00056*050726 

STA 

2.LENG 

00057*024737 

LDA 

1 . TBL+6 

00060*133000 

ADD 

1.2 

00061 *050717 

STA 

2. AREA 

00062*024733 

LDA 

1 .TBL+5 

00063  *  1 33000 

ADD 

1.2 

00064*050715 

STA 

2.ICX 

00065*024727 

LDA 

l.TBL+4 

00066*133000 

ADD 

1.2 

00067*050713 

STA 

2. ICY 

00070*024723 

LOA 

1  .TBL+3 

00071  *  133000 

ADD 

1.2 

00072*052732 

STA 

a.eipxR 

00073*024717 

LDA 

l.TBL+2 

00074*133000 

ADD 

1.2 

00075*052730 

STA 

g.eiPYR 

00076*030706 

LDA 

2.LENG 

00077*021377 

LDA 

0.-I.2 

00100*040012- 

STA 

0..NUM  {NUMBER  OF  BLOCKS 

00101  *  101005 

MOV 

0.0. SNR 

00102*006006$ 

JSR 

§.OVL  {EXIT. ...NO  BLOCKS 

00103*022702 

LDA 

0. @NMAX  ISET  UP  START  OF  DATA  AREA 

00104*040001- 

STA 

0.  .Ml 

00105*024701 

LDA 

1.F400 

00106*123000 

ADD 

1.0 

00107*040002- 

STA 

0.  .M2 

001 10* 102400 

SUB 

0.0  IINITIALIEE  COUNTERS 

001 1 1*040566 

STA 

0.NB 

001 12*040566 

STA 

0.NP 

001 13*034001- 

LDA 

3. .Ml  {INITIALISE  POINTERS 

001 14*054566 

STA 

3.PPNT 

001 15*030002- 

LDA 

2.  .M2 

001 16*050563 

STA 

2.BPNT 

00117  *051400 

; 

STA 

2.0.3  {FIRST  BLOCK  POINTER  INSTALLED 

00120*034660 

BACK: 

LDA 

3. AREA 

00121 *024556 

LDA 

l.NB 

00122* 137000 

ADD 

1.3  JGET  AREA.  BLOCK  NB 

00123*021 400 

LDA 

0.0.3 

JO, - it  Am 


A 


A 


00124*101 034 

MOV 

0,0, S£R 

C-4? 

00125*101112 

MOVL* 

0,0, s=c 

00 126*002661 

f 

JMP 

gNEXTR 

1NEGATIVE,  OR  r.  ERO/  AREA 

001 27 '04 1 01 4 

t 

STA 

0,14,2 

J STORE  AREA 

00130’ 102400 

SU9 

0,0 

JlNlTlALIrE  THE  FOLLOWING: 

00131  *  040562 

STA 

0  ,  MAX 

001 32  *041 0C2 

STA 

0,2,2 

i LOW  X 

00133*041004 

STA 

0,4,2 

1  LOW  Y 

00134*04101 1 

STA 

0,11,2 

/  (SIN) 

00135*041005 

STA 

0,5,2 

iX-VEL 

00136*041006 

STA 

0,6,2 

1  ALPHA-DOT 

00137*041012 

STA 

0,12,2 

J  LOW  ALPHA 

00140'041 00  7 

STA 

0,7,2 

i XFSUM 

00141 *041015 

STA 

0,15,2 

JY-VEL 

00142*041016 

STA 

0,  16,2 

J  YFSUM 

00143*041017 

STA 

0,17,2 

JMSUM 

00144*041020 

STA 

0,20,2 

JDELTA-X 

00145*041021 

STA 

0,21,2 

iDELTA-Y 

00146*041022 

STA 

0,22,2 

JDELTA-ALPHA 

00147*041023 

STA 

0,23,2 

jx  load 

00150*041024 

STA 

0,24,2 

JY  LO=D 

00151  *  100000 

COM 

0,0 

00152*041010 

f 

STA 

0,10,2 

1CC0S)  =  NEAREST  THING  TO  1 

00153*034626 

9 

LDA 

3,1  CX 

00154*137000 

ADD 

1/3 

00155*021400 

LDA 

0, 0, 3 

;GET  ICXCNB) 

00156*041001 

STA 

0,  1,2 

/  PUT  IN  NEW  BLOCK  LIST 

00157*040537 

STA 

0,IX 

/‘TEMP  STORE  FOR  LATER  USE 

00160*034622 

LDA 

3/ICY 

00161  *  137000 

ADD 

1/3 

00162*021400 

LDA 

0/0/  3 

;get  icy(nb> 

00163*041003 

STA 

0/3/2 

I  PUT  IT  AWAY 

00164*040531 

STA 

0/IY 

JAS  WITH  IX 

00165*034616 

LDA 

3/KEY 

00166*137000 

ADO 

1/3 

00167  *021 400 

LDA 

0/0/3 

/KEY  C NB ) 

00170*025401 

LDA 

1/1/3 

{KEYCNB+1 > 

00171*1 06400 

SUB 

0/  l 

00172*045000 

STA 

1  z0>2 

J NUMBER  OF  POINTS  THIS  BLOCK 

00173*024013- 

LDA 

1/.BSI2 

00174*133000 

ADD 

1  /  2 

00175*126520 

5UB5L 

1  /  1 

00176*122400 

SUB 

1,0 

IKEY ( NB) - 1 

00177*034605 

LDA 

3/LENG 

» PO INTER  TO  LENGTH  ARRAY 

00200*1 17000 

ADD 

0/3 

00201 *054506 

STA 

3/FANG 

00202*054506 

STA 

3/FENG 

00203*034623 

LDA 

3/1  BLOC 

00204’ 117000 

ADD 

0/3 

00205*054504 

STA 

3/FING 

00206*054504 

f 

STA 

3/FONG 

J2ND •  COPY  FOR  LONG  BLOCK 

00207*021400 

9 

LOOP: 

LDA 

0/0/3 

•POINT  NUM8ER 

00210*122400 

SUB 

1/0 

•P.  NUM  -1 

0021 1*034472 

LDA 

3/IPX 

00212*117000 

ADD 

0/3 

JPO INTER  TO  X  CO-ORD  IN  IPX 

00213*025400 

LDA 

1/0/3 

3X  CO-ORD  IN  ACt 

00214*034470 

LDA 

3/IPY 

4 

*i 


i 


I 
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1 


> 

f 


t. 


> 


I 


03215 ’ l 17303 

ADD 

0,3 

J PO INTER  10  Y  CO-ORD  IN  AC3 

00216*323533 

LDA 

0,  IX 

>  GET  XC  BACK 

00217  *  1224  00 

SUB 

1  >0 

{XC-XP  (RELATIVE  X>  XR> 

03220* 133420 

NEG 

0,  D 

00221 *043465 

STA 

6*  TEMP 

03222*024463 

LUA 

1  ,GNE27 

1  127 

00223* 131112 

MOVL* 

0/ 0,SHC 

00224* 1 00403 

NEG 

0,0 

5 ABS(XR) 

00225’ 106512 

SURL# 

0,1 ,SEC 

,*IS  ABS  (  XR) > ] 27  ? 

00226*000472 

JMP 

FWORD 

)  YF.S,  TREAT  AS  LONG  BLOCK 

00227  *024464 

LDA 

1  ,  MAX 

JIS  IS  SHORTEST? 

00230  *  1 0651 2 

SU8L* 

0, 1  ,S2C 

00231 *0  ■ 462 

STA 

0,MAX 

00232  *C2»i454 

LDA 

0,  TEMP 

{  GET  AC0  WITH  CORRECT  SIGN 

00233 '024O05S 

LDA 

1  >  . MSKR 

00234* 123700 

ANDS 

1  ,C 

{ MASK  OFF  LEFT  BYTE,  AND  SWAP 

00235*025400 

LDA 

1,0,3 

;y  co-ord  in  ac i 

00236  *  1  1 5000 

MOV 

0,3 

5  RETAIN  XR  IN  LEFT  BYTE  OF  AC3 

00237 *020456 

LDA 

0,  I  Y 

1  GET  YC  BACK 

00243* 122400 

SUB 

1 ,0 

JYC-YP  (RELATIVE  Y,  YR> 

00241  *  1 03400 

NEG 

0,0 

ITO  CORRECT  A  BLUNDER  ! 

00242  *  040444 

STA 

0  ,  T  EM  P 

00243*024442 

LDA 

1 ,0NE27 

>  DO  AS  WI TH  X- . . 

00244* 101112 

MOVL#. 

0,0, S2C 

00245* 100400 

NEG 

0,0 

00246* 106512 

SUBL# 

0,1, S2C 

00247  *000451 

JMP 

FWORD 

{MUST  BE  LONG  BLOCK 

00250*024443 

LDA 

I  ,MAX 

00251  *  1 06512 

SU8L# 

0, 1 ,  S2C 

00252*04044 1 

STA 

0,MAX 

00253*020433 

LDA 

0 , T  EM P 

00254 ' 024005? 

LDA 

1  ,  .MSKR 

00255*1 23400 

AND 

1,0 

{MASK  OFF  LEFT  BYTE.. 

00256*1 63000 

ADD 

3,0 

{ ...AND  ADD  IN  XR 

00257*041000 

STA 

0,0,2 

{STORE  FULL  WORD  IN  LIST 

00263*034 427 

LDA 

3, FANG 

0026 I *021400 

LDA 

0,  0,  3 

{GET  LENGTH  OF  SIDE  NP 

00262*041001 

STA 

0,1,2 

{STORE  LENGTH  IN  2ND  WORD 

00263*010415 

ise 

NP 

00264*020414 

LDA 

0  ,NP 

00265*026414 

LDA 

1  ,@SPNT 

{GET  MAX  POINTS 

00266' 151400 

INC 

2,2 

{BUMP  POINT  POINTER 

00267*151400 

INC 

2,2 

00270  *  12251 3 

SUBL# 

1 ,0,SNC 

;1S  NP  >  MAXP  ? 

00271 *000507 

JMP 

OUT 

{YES,  END  OF  POINT  LOOP 

00272 '010417 

IS2 

FING 

{ NO >  CARRY  ON 

00273*01041  4 

I S2 

FANG 

00274*03441 5 

LDA 

3, FING 

{POINTER  TO  I BLOC  ARRAY 

00275* 126520 

SUBkL 

1  ,1 

00276*00071 1 

JMP 

LOOP 

{ROUND  AGAIN  WE  GO 

00277  *  00P000 

) 

N3: 

0 

00300*000000 

NP : 

0 

00301 *000000 

BPNT : 

0 

00302*000000 

PPNT : 

0 

00303*035600 

IPX: 

35600 

{FORTRAN  POINT  ARRAYS 

00304*036600 

I  PY : 

36600 

00305*000177 

0NE27 : 

177 

00306*000000 

TEMP: 

0 

00307*000000 

PANG: 

0 
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00472*000000 

NY : 

0 

00473  *024770 

COW: 

LDA 

1  ,  NPA 

00474 '0O6OO2S 

JSR 

9.P0N2 

JQUICK  ENTRY 

00475*044775 

place: 

STA 

1  .NY 

;now  PUT  NX  IN  AC  1 

00476* 1 05000 

MOV 

0.  1 

;NOW  COMPUTE  WHICH  BOX 

00477*034003- 

LDA 

3.  .M3 

J  THE  POINT  NX,  NY  SHOULD  BE 

00500*030770 

LDA 

2.C100 

;ASSOCIATED  WITH,  AND  PLANT  , 

00501 ' 1 32400 

SUB 

0.0 

ILINK  TO  IT  IN  THE  BOX  ARRAY 

00502 '073101 

DIV 

J  INPUT:  NX  IN  AC l 

00503*1 37000 

ADD 

1.3 

JAC3=AC3+NX/100 

00504* 102400 

SUB 

0.0 

00505*024765 

LDA 

1  .NY 

00506*073101 

DIV 

00507* 127120 

ADD2L 

1.  1 

00510* 127120 

ADD2L 

1  .  1 

0051 1  *  137000 

ADD 

1.3 

JAC3=AC3+(NY/!00>*20 

00512*021400 

LDA 

0.0.3 

J FIRST  LINK  (MAY  BE  0) 

00513*030752 

LDA 

2. FREE 

J  FREE  SPACE  POINTER 

00514*041001 

STA 

0.1.2 

1  PUT  OLD  LINK  IN  2ND  WORD 

00515*051400 

STA 

2.0.3 

;PUT  NEW  LINK  IN  BOX  ARRAY 

00516*024744 

LDA 

1  .NBA 

00517*020744 

LDA 

0.NPA 

00520*101300 

MOVS 

0.0 

00521  *  123000 

ADD 

1.0 

^COMPOSITE  CNPA:N8A) 

00522*041000 

STA 

0.0.2 

J  PUT  IN  1ST  WORD 

00523*151400 

INC 

2.2 

00524* 151400 

INC 

2.2 

00525*050740 

STA 

2. FREE 

J UPDATE  FREE  POINTER 

00526*010735 

IS2 

NPA 

00527*014740 

DS2 

PCNT 

iDONE  IF  PCNT=0 

00530*000743 

JMP 

COW 

00531 *010735 

ISH 

PPNTA 

00532*010730 

IS2 

NBA 

00533*000712 

JMP 

AROUN 

00534*030731 

DONE: 

LDA 

2. FREE 

00535*050005- 

STA 

2.  .MS 

1 NEXT  FREE  LOCATION 

JNOW  PREPARE  FOR  PROD  LIST 

00536*024726 

LDA 

l.PRODZ 

00537*134400 

NEG 

1.3 

00540* 147000 

ADD 

2.1 

t PROD  LIST  START 

00541 *044006- 

STA 

1  .  .M6 

.FIXED  POINTER 

00542*044007- 

STA 

1..M7 

IMOVING  POINTER 

00543*102000 

ADC 

0.0 

00544*040010- 

STA 

0..EMPT 

I NOTHIMG  IN  EMPTY  LIST 

00545*041000 

ITR: 

STA 

0.0.2 

f SET  ALL  LINKS  TO  -1 

00546* 1 51 400 

INC 

2.2 

00S47* 175404 

INC 

3.3.SHR 

00550*000775 

JMP 

ITR 

00551  *  0060 1 0S 

JSR 

e.TPRN 

00552 ’006004S 

JSR 

e.Diss 

JDISPLAY  ALL  BLOCKS 

00553  *  006007 $ 

JSR 

5. MESS 

00554*000561  * 

TEXT 

000012 

•  RDX 

10 

00555*177076 

-450 

00556*000017 

15 

0000 1 0 

.RDX 

6 

00557*002401 

JMP 

SCNTRL 

00560*177777 

CNTRL: 

CONTR 

00561 *050040 

TEXT: 

.TXT 

♦  P 

00562*040510 

HA 
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00563  *  042523 

SE 

00564*052040 

T 

00565*051 1 10 

HR 

00566*042505 

EE 

00567*000000 

* 

000027  * 

.END 

TRANS 

i 


w 
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•T I TL  TEK 

TO  PLOT  A  POINT  ON  THE  TEKTRONIX  SCREEN: 
JSR  g.PLTS 

<PUT  0  HERE  POR  BEAM  OFF, 

1  POR  BEAM  ON, 

-I  POR  POINT  PLOT) 

INPUT:  AC0  =  X  CO-ORDINATE 
AC  1  =  Y  CO-ORDINATE 

TO  GET  CURSOR  CO-ORDINATES  AND  CHARACTER! 


JSR  @.CURS 
CHAR 
X 
Y 

CHAR= ADDRESS  OP  WORD  CONTAINING 
KEY  CHARACTER, 

X  =ADDRESS  OP  WORD  WITH  X  CO-ORD, 


WHERE: 


I 

Y  = 

•  *  •• 

M  ll  Y 

S 

.ENT 
•  EREL 

•PLTS, . 

CURS 

00000-000017  * 

. PLTS : 

TPLOT 

00001-000150* 

•CURS: 

CURSIS 
•  NREL 

00000  *  0404 1 6 

CHIN: 

STA 

0, CCAC0 

IS*VE  AC0 

00001 *063610 

SKPDN 

TTI 

JSKP  IP  CHAR  READY 

00002*000777 

JMP 

.-1 

00003  *  06051  0 

DIAS 

0  ,  TTI 

S READ  CHAR 

00004*043400 

STA 

0,00,3 

ISHORE  CHAR 

00005*02041 1 

LDA 

0,CCAC0 

1  RESTORE  ACO 

00006*001401 

JMP 

1,3 

1  RETURN 

00007  *040407 

CHOUT: 

STA 

0 , CCAC0 

; SAVE  AC0 

00010*06351 1 

SKPB2 

TTO 

1  SKIP  IP  NOT  BUSY 

0001 1 ’ 000777 

JMP 

.-1 

00012*023400 

LDA 

0,00,3 

i GET  CHARACTER 

00013*061  1  1  1 

DOAS 

0,TTO 

JSHTP  character 

00014*020402 

LDA 

0,CCAC0 

1  RESTORE  ACO 

00015*001401 

JMP 

1,3 

00016*000000 

CCAC0 : 

0 

I TEMP  POR  AC0 

0P017  *040525 

TP1.0T : 

STA 

0,TPTX 

IX  CO-ORD 

00320*044525 

STA 

1  ,  TPTY 

JY  (TO-ORD 

00021 *021400 

LDA 

0,0,3 

IMCOE  FROM  CALL* 1 

00022*040524 

STA 

0, TPMOD 

00023*054520 

STA 

3,TPTADDJ  SA>VE  CALL  ADDRESS 

00024  *  1 31 01 5 

MOV* 

0,0, SNR 

ISK?  IF  NEQ  0 

00025*030405 

JMP 

TPTDV 

1=  *  INITIALISE  AND  DARK 

00026  *101113 

MOVL# 

0,0, SNC 

i  shop  i  p  <  0 

00027  *  000405 

JMP 

TPTNRM 

I  NORMAL  BRIGHT  VECTOR 

00330 ' P0651 1 

JSR 

eCHOUc 

I SE3  TO  ALPHA 

00031 *000130* 

US 

00032*006507 

IPTDV: 

JSR 

0CHOU2 

1  DARK  VECTOR 

00033*000127  * 

GS 

00034*02051 1 

TPTNRM : 

LDA 

0,TPTY 

IGE3  Y 

00035* 101112 

MOVL# 

0 , 0 ,  S EC 

jSKt  IF  ♦ 

00036  *  1 02  400 

SUB 

0,0 

JMAtE  0 

00037  *034477 

LDA 

3 , D7  80 

!UP?ER  Y  BOUND 

00040* 1 62513 

SU8L# 

3,0, SNC 

iSKf  IP  ON  SCREEN 

00041 ' 161000 

00042*040503 

00043* 101120 

00044* 101  ISO 

00045* 101 120 

00046*101300 

00047*034463 

00050* 163000 

00051 *040476 

00052*036467 

03053*000147  * 

00054*020471 

00055*034453 

00056*1 63400 

00057*034455 

00060*163000 

00061 *040466 

00062*006457 

00063*000147  * 

00064*020460 

00065*101 1 12 

00066*102400 

00067*034450 

00070*1 6251 3 

00071  *  161000 

00072*040452 

00073*101 120 

00074*1 01 120 

00075*101120 

00076  *  101300 

00077*034433 

00100' 163000 

00101 *040446 

00102*006437 

00103*000147* 

00104*020440 

00105*034423 

00106*163400 

00107*034424 

00110*1 63000 

001 1 1 *040436 

001 12*006427 

001 13*000147* 

00114*020432 

001  15*101  M3 

001 16*000404 

00! 17*102400 

00120*040426 

00121 *000713 

00122*020420  TPTEXT: 

00123*034420 

00124*001 401 

00125*000032  SUBGQ: 

00126*02003 3  ESC: 

00127*000035  GS: 

00130*000037  US: 

00131*000020  0020: 

000130*  B037=US 
00132*000040  B040S 

00133*000100  B100: 


MOV 

3/0 

1  SET  TO  EDGE 

STA 

0/TPTV 

t SAVE  GOOD  Y 

M0V2L 

0/0 

1  USE  UPPER  5  BITS 

M0V2L 

0/0 

M0V2L 

0;  0 

MOVS 

0/0 

1  AND  SWAP  HALVES 

LDA 

3/B040 

J  HI  Y  TAG 

ADD 

3/0 

1  PUT  IN  CHAR 

STA 

0/ TPTTMP t USE  A  TEMP 

JSR 

TPTTMP 

SCK0U2 

JSHIP  HI  Y  5 

LDA 

0/TPTY 

IGET  y 

LOA 

3/ B037 

!  MASK 

AND 

3/0 

J LEAVE  LOW  Y  5 

LDA 

3/B140 

J  LOW  Y  TAG 

ADD 

3/0 

t SET  IN  CHAR 

STA 

0/ TPTTMP 

JSR 

TPTTMP 

0CHOU2 

iSHIP  LOW  Y 

LDA 

0,TPTX 

J  GET  X  VALUE 

M0VL4 

0/0 » SBC 

SUB 

0/0 

LDA 

3,01023 

SU8L* 

3/0/5NC 

MOV 

3,0 

STA 

0/TPTX 

M0V2L 

0,0 

1  and  DO  LIKE  y 

M0V2L 

0,0 

M0V2L 

0,0 

MOVS 

0,0 

JHI  X  5 

LDA 

3,8040 

5H1  X  TAG 

ADD 

3,0 

1  ADD  IN  TAG 

STA 

0, TPTTMP 

JSR 

TPTTMP 

0CHOU2 

ISHIP  HI  X  5 

LDA 

0, TPTX 

l  GET  X 

LOA 

3,8037 

iGOODIE  MASK 

AMD 

3,0 

J LEAVE  LOW  X  5 

LDA 

3,B100 

JLOW  X  TAG 

ADD 

3,0 

: PUT  IN  TAG 

STA 

0, TPTTMP 

JSR 

TPTTMP 

e CHOU 2 

LDA 

0, TPMOD 

MOVL# 

0,0, SNC 

JMP 

TPTEXT 

SUB 

0,0 

STA 

0, TPMOD 

JMP 

TPTNRM 

LDA  0,TPTAC0JRESTORE  AC0 

LDA  3, TPTADD J CALL  ADDRESS 

JMP  1/3  }  EX  I T  AT  CftUM 

032 

033 

035 

037 

020 

040 

100 


C  -  50 


00 134*  0C0 1 40 

B1  40: 

1  40 

00135*000003 

D003S 

003 

001 36 ' 00 1414 

D7  80 : 

1414 

00137*001777 

D  1  023 : 

1777 

00140*000000* 

CHINP: 

CHIN 

00141  *000007  * 

CHOUE : 

CHOUT 

001 42  *  000000 

TPTAC0 : 

0 

00143*000000 

TPTADD : 

0 

00144*000000 

TPTX: 

0 

00 1 45  *  0003C0 

TPTY: 

0 

00146*000000 

TPMOD : 

0 

00147  *000000 

TPTTMP : 

0 

00150*040772 

CURSIS: 

STA 

0jTptaco;save  aco 

00151 *054772 

STA 

3. T PT  ADD.  SAVE  CALL  ADDRESS 

00152*006767 

JSR 

SCHOUE 

.‘SET  TO  ALPHA 

00153*000130* 

US 

00154*006765 

JSR 

eCHOUE 

1  TURN  ON  CURSER 

00155*000126 ' 

ESC 

00156*006763 

JSR 

@CH0UE 

00157*000125* 

SUBQQ 

00160*006760 

JSR 

eCHiNP 

1  GET  CHAR 

00161 *000144* 

TPTX 

00162*020753 

LDA 

0.  D003 

{GET  LOOP  COUNTER 

00163*040764 

STA 

0. TPTTMP 

00164*020760 

LDA 

0.  TPTX 

; GET  CHAR 

00165*000421 

JMP 

CURPS 

J STORE  CHAR 

00166*006752 

CURLP : 

JSR 

eCHINP 

{ GET  HI  COORD 

00167*000144* 

TPTX 

00170*006750 

JSR 

§CHINP 

1  GET  LOW  COORD 

00171 *000145* 

TPTY 

00172*034736 

LDA 

3.B037 

{MASK 

00173*02075 2 

LDA 

0#  TPTY 

{LOW  COORD 

00174*1 63400 

AND 

3.0 

{MASK  OFF  GARBAGE 

00175*040750 

STA 

0.TPTY 

{SAVE  FOR  LATER 

00176*020746 

LDA 

0.TPTX 

{HI  COOPD 

00177*1 63400 

AND 

3.0 

{ MASK  OFF 

00200*101300 

MOVS 

0.0 

{S*AP 

00201  *  101220 

MOVER 

0.0 

00202* 101220 

MOVER 

0.0 

00203*101220 

MOVER 

0.0 

00204*034741 

LDA 

3. TPTY 

{LOW  coord 

00205*163000 

ADD 

3.0 

{ADD  IN  LOW  COORD 

00206*034735 

CURPSs 

LDA 

3 » TPT ADDJ  CALL  ADDRESS 

00207*043400 

STA 

0. @0. 3 

{ STORE  VALUE 

00210*175400 

INC 

3.3 

{ADJUST  ADDRESS 

0021 1*054732 

STA 

3. TPT ADD! SAVE  UPDATED  ADD 

00212*014735 

DSc 

TPTTMP 

{ CHECK  FOR  DONE 

00213*000753 

JMP 

CURLP 

{LUTOP  IF  NOT 

00214*020726 

LDA 

0.TPTAC0J RESTORE  AC0 

00215*001400 

JMP 

.END 

0.3 

{ RETURN 

.TITL  PONT 

routine  to  return  c-lobal  co-ordinates 

OF  POINT  NP.  BLOCK  NB 
INPUT:  AC  1  =  POINT  #  NP 

AC2  =  POINTER  TO  START 

OF  DATA.  BLOCK  NB- 

OUTPUT:AC0  =  X  CO-ORDINATE 
AC  1  =  Y  CO-ORDINATE 
AC2  IS  PRESERVED. 


ENTRIES: 

JSR  e.PON!  .  FOR  NORMAL  ENTRY 


1 

JSR  e 

.  P0N2  .  IF 

PREVIOUS  CALL  WAS 

I 

FOR  THIS  BLOCK  ( AC2 

S 

NOT  NEEDED). 

i 

.ENT 

. PON  1 .  . 

P0N2 

•  EXTD 

•  BS I Z 

.  ZREL 

00000—000000  * 

•  PON l : 

PONT  1 

00001-000170* 

• P0N2 : 

P0NT2 

•  NREL 

00000*054544 

PONT  1 : 

STA 

3.SV3 

00001 *021000 

LDA 

0.0.2 

l  1  ST  WORD 

00002*034545 

LDA 

3.LBIT 

00003*1 17400 

AND 

0.3 

1  AC3  =  LONG  BLOCK  INDICATOR 

00004*054555 

STA 

3.IND3 

00005*040547 

STA 

0.  SINF 

I  SIN  FLAG  IN  BIT  0 

00006* 101100 

MOVL 

0.0 

00007*040546 

STA 

0.COSF 

; COS  FLAG  IN  BIT  0 

00010*021001 

LDA 

0.  1.2 

IX  CENTROID 

00011 *040537 

STA 

0.XC 

00012*021003 

LDA 

0.3.2 

1 Y  CENTROID 

00013*040536 

STA 

0.YC 

00014*02101 1 

LDA 

0.1  l.  2 

;sin 

00015*040535 

STA 

0.SIN 

00016*021010 

LDA 

0.10.2 

5  cos 

00017*040534 

STA 

0.COS 

00020*050523 

STA 

2.SV2 

J BLOCK  NB.  DATA  START 

00021  *  02000 1 S 

ENTQ : 

LDA 

0..BSIZ 

I  START  OF  POINT  DATA 

00022*113000 

ADD 

0.2 

J POINTER  TO  START  OF 

00023*175004 

MOV 

3 . 3 . SER 

JPOINT  LIST 

00024*000536 

JMP 

LONG 

l LONG  BLOCK 

00025*127000 

ADD 

1.1 

JNP*2  FOR  SHORT  BLOCK 

00026* 1 33000 

ADD 

1.2 

I  (POINT  NP) 

00027*020516 

LDA 

0.MASKR 

i  00000000 1  1  1  1  111  1 

00030*025000 

LDA 

1.0.2 

J (XR: YR) 

00031  *  1 35300 

MOVS 

1.3 

J  C YR : XR ) 

00032* 1 17400 

AND 

0.3 

JRIGHT  8  BITS  XR  IN  AC3 

00033*107400 

AND 

0.  1 

J  .  YR  **  AC  1 

00034*030512 

LDA 

2.C200 

IMASK  TO  DETECT  NEGATIVE 

00035*1 47414 

AND# 

2.  1 .SER 

00036* 106000 

ADC 

0.  1 

IMAKE  PROPER  NEGATIVE 

00037*157414 

AND# 

2.3. SER 

00040*1 1 6000 

ADC 

0.3 

MALL  16  BITS  OK) 

00041 *044515 

DOG: 

STA 

l.YR 

1 XR  IN  AC3.  YR  IN  ACt 

00042*030510 

LDA 

2. SIN 

00043*102440 

SU80 

0.0 

C-52 


00044 
00045 
00046 
00047 
00050 
00051 
00052 
00053 
e0C54 
00055 
00056 
00057 
00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 
00070 
0007  1 
00072 
00073 
00074 
00075 
00076 
00077 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 
001  10 
001  1  1 
00112 
001  13 
001  1  4 
001  15 
001  16 
001  17 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00130 
00131 
00132 
00133 
00134' 
00135' 
00136’ 
00137' 


125112 

MOVL# 

1  *  1  *SEC 

<*• 

> 

UJ 

> 

124440 

NEGO 

1  *  1 

J  YES •  ABS(YR).  SET  CARRY 

07330 1 

MUL 

;yr*sin  in  aco 

125112 

MOVL# 

1  *  1  *SEC 

;rounded  arithmetic 

101400 

INC 

0*0 

101002 

MOV 

0*0*SEC 

;RESTORE  SIGN 

1 00400 

NEG 

0*0 

024501 

LDA 

1 *SINr 

125102 

MOVL 

1  *  1  *  SEC 

1 00400 

NEG 

0*0 

»-VE  SIN 

024472 

LDA 

l  *xc 

106400 

SUB 

0*1 

JX=XC-YR*5IN 

044500 

STA 

1  *x 

1 65000 

MOV 

3*  l 

03047 1 

LDA 

2*C0S 

102440 

SUBO 

0*0 

1251 12 

MOVL# 

1  *  1  *  SEC 

124440 

NEGO 

1  *  1 

;SET  CARRY  IF  AC1<0 

073301 

MUL 

1XR*C0S  IN  ACO  * 

125112 

MOVL# 

1  *  1  *  SEC 

101400 

INC 

0*0 

101002 

MOV 

0*  0*  SEC 

1 00400 

NEG 

0*0 

024462 

LDA 

1  *  COSE 

125102 

MOVL 

1  *  1  *  SEC 

100400 

NEG 

0*0 

i-VE  COS 

024462 

LDA 

i  *x 

107000 

ADD 

0*  1 

*  X=X+XR*COS 

044460 

STA 

1*X 

IGLOBAL  X  CO-ORD 

1 65000 

MOV 

3*  1 

}  XR 

030450 

LDA 

2*  SIN 

1 02440 

SUBO 

0*0 

125112 

MOVL# 

1  *  1  *  SEC 

124440 

NEGO 

1  *  1 

073301 

MUL 

;XR*SIN 

125112 

MOVL# 

1* 1 *SSC 

101400 

INC 

0*0 

101002 

MOV 

0*0*  SEC 

1 00400 

NEG 

0*0 

024441 

LDA 

1  *SINF 

125102 

MOVL 

1  *  1 *SEC 

1 00400 

NEG 

0*0 

024433 

LDA 

1  *  YC 

1 07000 

ADD 

0*  I 

JYC=YC+XR*SIN 

044437 

STA 

1  *  Y 

024435 

LDA 

1  *  YR 

030431 

LDA 

2*C0S 

1  02440 

SUBO 

0*0 

12S1  12 

MOVL# 

1  *  1  *  SEC 

124440 

NEGO 

1*1 

073301 

MUL 

125112 

MOVL# 

1  *  1  *SEC 

101400 

INC 

0*0 

101002 

MOV 

0*  0*  S  EC 

1 00400 

NEG 

0*0 

024422 

LDA 

1  *  COSE 

125102 

MOVL 

1  *  1  *SEC 

1 00400 

NEG 

0*0 

024421 

LDA 

1  *  Y 

1 07000 

ADD 

0*  1 

JY=Y# YR*COS 

c-hi 


001  40 *  020400 
00141 *030402 
00142*002402 
00143*000000 
001 44*003000 
00145*003377 
001 46*000200 
001 47  *020300 
00150*000300 
001 51  *  000O03 
00152*000000 
00153*000030 
001 54  *  000000 
00155  *  000000 
00156*000000 
001  57  *000000 
00160*000000 
00161 *000030 
00162* 135120 
00163* 167000 
00164*1 33000 
00165*035000 
00166*025001 
00167  *000652 


00170*054754 
00171 *034770 
00172*030751 
00173*000626 


LDA 

LDA 

JMP 

SV2:  0 

SV3:  0 

MASKR:  377 

C200 :  200 

LSI T:  20000 

XC:  0 

VC:  0 

SIN:  0 

COS:  0 

SINF :  0 

COSF :  0 

YR:  0 

Y:  0 

X:  0 

IND3 :  0 

LONG:  MOVZL 

ADD 
ADD 
LDA 
LDA 
JMP 

i ENTRY  POINT  IF 
} CALL • 

P0NT2 :  STA 

LDA 
LDA 
JMP 
.  -END 


0  j  X  t OUTPUT  : 

2,SV2  } 

esv3  ; 


XC  IN  AC.O 
YC  IN  AC  1 
AC2  RESTORED 


1,3  ;NP*3  FOR  LONG  BLOCK 

3,  1 

1.2  ; PO INTER  TO  POINT  NP  <XR; 

3,0,2  JXR  IN  AC3 

1.1.2  J YR  IN  ACl 
DOG 

THIS  BLOCK  WAS  ADDRESSED  ON  THE  L 

3,SV3 
3, I ND3 
2  ,  SV2 
ENTS 


C  -  54 

.  T  1  TL  HITS 

•  EM  -HITS 

TO  SCAN  ALL  SIDES  FOR  HIT  ON  POINT  <X,Y> 

JSR  P.HITS 
X 
Y 

(NC-HIT  RETURN) 

(HIT  RETURN  WITH  BLOCK  POINTER 
IN  AC2,  EDGE  »  IN  AC!  AND  BLUCK  0  IN  AC0 ) 

(  X  »  Y  )  WILL  BE  OVERWRITTEN  WITH  THE  COORDS 

OF  THE  CENTRE  OF  THE  LINE  THAT  WAS  HIT 

AC3  WILL  CONTAIN  RE-ENTRY  ADDRESS  FOR  CONTINUED 


1 

SCAN.  WITH  RETURN  TO  ORIGINAL  CALLING  ADDRESS. 

1 

IF  RE-ENTRY  IS  MADE  TO  CCAC31+1.  AC 3  WILL  BE 

l 

i 

TAKEN  AS 

•  EXTD 
«  EXTD 
.EXTD 

•  HREL 

THE  NEW  CALLING  ADDRESS.  (GET  IT?) 

•  Ml . .M2. *M3. • M4 . «  M  5. .M6. .M7. .M5KR 

•  PON  1 , . P0N2 . • PRN 1 . . EMPT . . PSI £. .LENG 

•  IACC. • PLTS. . ALPH 

00000-000000* 

•  HITS 

:  HITS 

•  NREL 

00300  *054424 

HITS: 

STA 

3.HIT3 

00001 *023400 

LDA 

§0.0.3 

00002*040521 

STA 

O.X 

00003*023401 

LDA 

§0.1.3 

00004*040520 

STA 

0.  Y 

00005'034'JOIS 

LDA 

3.  .Ml 

00006* 102400 

SUB 

0.0 

00007*040416 

STA 

0.N8B 

i BLOCK  SCAN--- 

00010*05441  6 

BEGIN 

:  STA 

3. HOLD 

0001 1 *031400 

LDA 

2.0.3 

00012* 1 51 005 

MOV 

2. 2. SNR 

00013*000407 

JMP 

BAD  f NO  MORE  BLOCKS.  EXIT! 

000 1 4  *  0244 1  1 

LDA 

1  .NBB 

0001 5*034412 

JSR 

SING  } GO  TO  SIDE-SCAN  ROUTINE 

00016*010407 

IS2 

NBB 

00017*034407 

LDA 

3. HOLD 

00020’ 175400 

INC 

3.3 

00021 *000767 

JMP 

BEGIN 

00022*034402 

BADS 

LDA 

3/HIT3 

00023*  001 402 

JMP 

2.3  ) NO-HIT  RETURN 

00024*000000 

HIT3: 

0 

00025*000000 

NBB : 

0 

00026*000000 

HOLD: 

0 

JINPUT:  AC  1  - 

BLOCK  0 

; 

i 

ACS  - 

POINTER  TO  START  OF  DATA.  BLOCK  NB 

00027  *054455 

SING: 

STA 

3.SIN3 

00030*044470 

STA 

1  .NB 

00031 *021014 

LDA 

0.14.2 

00032* 101005 

MOV 

0.0. SNR 

00033*002451 

JMP 

§SIN3  l  EERO  AREA.  EXIT! 

00034*021003 

LDA 

0.0.2  ; CONTROL  WORD 

00035 ’ 02401  OS 

LDA 

1  .  «MSKR 

00036* 107400 

AND 

0.1  J  NO .  OF  POINTS 

m 


a 


C  -  5  5 


00037 '044446 

STA 

1  .  NPNTS 

JP01NT  COUNTER 

00040 ' 126430 

SUB 

I  »  1 

00041  '044460 

STA 

1  >NP 

00040*00601 6S 

JSR 

@  .LENG 

JC-ET  LENGTH  L  THIS  S 

00043 ' 040457 

STA 

0.L 

00044' 00631 1? 

JSR 

e.poNi 

J  GET  GLOBAL  CO-OKDS 

00045 ' 04044 1 

STA 

0..X0 

00046 ' 04444 l 

STA 

1  »  Y0 

00047 ’ 040444 

STA 

0  <  XA 

00050 '044444 

STA 

1  j  YA 

00051 '000417 

JMP 

DOWN 

00052*00601 6S 

BACK: 

JSR 

@  .LENG 

}  GET  LENGTH  L 

00053 ' 040435 

STA 

0>  L 1 

J  LENGTH  L>  SIDE  NP 

00054 ' 0060  1  1  r. 

JSR 

§ .PON  I 

00055*040434 

STA 

0>XB 

00056 ' 044434 

STA 

1  >  YB 

00057*050423 

STA 

2 #  AC2 

00060 '034446 

JSR 

PUSH 

I  SEARCH  FOR  CONTACTS 

00061 *030421 

LDA 

2  #AC2 

00062*020427 

LDA 

0»XB 

JNEW  BECOMES  OLD 

00063*040430 

STA 

0>XA 

00064 '020426 

LDA 

0>  YB 

00065*040427 

STA 

0>  YA 

00066' 020422 

LDA 

0  #  L  1 

00067*040433 

STA 

0*L 

0007  0 ' 0 1 043 1 

DOWN : 

I  Sc 

NP 

0007 1 '024430 

LDA 

1  »  NP 

00072'm  441  3 

DSZ 

NPNTS 

;JUMP  OUT  IF  DONE 

00073*000757 

JMP 

BACK 

0007  4 ' 0204 1 2 

LDA 

0»X0 

1  LAST  LINE 

00075*04041 4 

STA 

0>XB 

00076*02041  1 

LDA 

0,Y0 

00077  *  040413 

STA 

0>  YB 

001 00' 004426 

JSR 

PUSH 

; SEARCH  FOR  CONTACTS 

00101 *002403 

JMP 

eSIN3 

;exit 

00102*000000 

AC2 : 

0 

001 03 ' 020000 

LBIT : 

20000 

00104*000000 

SIN3: 

0 

00105*000000 

NPNTS: 

0 

00106*000000 

X0! 

0 

00107*000000 

YOs 

0 

001 10*000000 

LI  : 

0 

00111 *000000 

XB: 

0 

001 12*000000 

YB: 

0 

001 13*000000 

XA: 

0 

001 14*000000 

YA: 

0 

001 15*000000 

COS: 

0 

001 1 6 ' 000000 

SIN: 

0 

00117  *000000 

COSF : 

0 

00120*000000 

NB: 

0 

00121 *000000 

NP: 

0 

00122*000000 

L: 

0 

00123*000000 

x: 

0 

00124*000000 

Y: 

0 

00125*000000 

SINF: 

0 

00126*054541 

PUSH: 

STA 

3 • S  VP3 

ITO  GET 

LOCAL 

COS  AND  SIN  OF  THIS  EDGE 

00127*020762 

LDA 

0  *  XR 

00130*024763 

LDA 

1  *  XA 

00131*1 22400 

SUB 

1*0 

J*8-XA 

C  -  56 


BO  1 32  *  040  7  6  5 

STA 

0  >  COSF 

7C0S  SIGN  FLAG 

00 1  33' 1  ill  112 

MO  VI.  # 

0,0, SEC 

;  -VE? 

00134* 100400 

NEC 

0,  e 

)  YES,  GET  ABS(XB-XA) 

00 ! 35 1 030765 

LDA 

2>L 

JLENGTH  OF  edc-e 

CO  1 36 1  106  4C0 

SUB 

1  >  1 

001 37 ’ 1 4051 3 

SUBL4* 

2,3, SNC 

} XD>=L? 

CO  1 4  0 1 12400  1 

COM 

1  ,  1  ,SKP 

J SET  AC  1  TO  1111... 

001 41 *073101 

D I  V 

00142*101112 

MOVL* 

0 >  0  *  S EC 

>  ROUND  UP  IF  NECESSARY 

00 143*1 2540O 

INC 

1  ,  1 

00144*044751 

STA 

1  >cos 

001 45*020745 

LDA 

0,  YS 

00 1 46  *  024746 

LDA 

1  /  YA 

00147*1 22400 

SUB 

1  >0 

; YB-YA 

00! 50*040755 

STA 

0/  S  I  NF 

JSIN  SIO-N  FLAG 

001 51  *  1 01  1  1 2 

MOVL* 

0>  0»  SEC 

;  -ve? 

00 152*1 00400 

NEG 

0  >  0 

00! 53  *  1 26403 

SUB 

1  >  1 

001  54  *  1 4251  3 

SUBL# 

2,0, SNC 

i YD>=L? 

001 55* 124001 

COM 

1 , 1 , SKP 

J  YES 

00! 56*073101 

DIV 

00157*101112 

MOVL# 

0,0, SEC 

00160  *  1 25400 

INC 

1  ,  1 

J ROUND  UP 

001 61 *044735 

1 

STA 

1  >S1N 

i 

i  GET 

TRANSFORMED  CO-OKDS  OF  X,Y 

i COMPUTES:  XT  = 

XG*COS  < A) +YC*SIN(A) 

» 

t 

YT  = 

YG*COS  C A ) - 

■XG*SINCA) 

001 62*020741 

LDA 

0>X 

1  GET  COORDS  OF  POINT 

0OI63*  (124741 

LDA 

1  ,  Y 

JUNDER  CONSIDERATION 

001  64  *(*34727 

LDA 

3,XA 

00165*1 62400 

SUB 

3/0 

00166  *  04047  7 

STA 

0,XG 

;rel.  to  edge  start 

00  167  *034725 

LDA 

3/ YA 

001  Vi'*  1  6640O 

SUB 

3/  1 

00171 ’C44475 

STA 

I  ,YG 

00172*004477 

JSR 

YTGET 

J LOCAL/  TRANSFORMED  Y 

03173  *  1 73112 

* 

MOVL# 

3/3, SEC 

00174*1 74400 

NEG 

3/3 

JABS  YT 

00175 *02401 7S 

LDA 

I / . IACC 

001 76  *  1  66423 

SUBZ 

3/ I / SNC 

J  CHECK  FOR  NORMAL  DIST. 

00177*002470 

JMP 

P5VP3 

J  NOT  NEARS  EXIT! 

00200  *  O307 1  6 

} 

LDA 

2/SIN 

J  NOW  FOR  XT 

00201 *024465 

LDA 

1  /YG 

0020'*  *  1  02440 

SUBO 

0/0 

002*0  3  *  125112 

MOVL# 

1  /  1  /SEC 

J  SET  CARRY  IF  NEG 

002(14 ' 1  04440 

NEGO 

I  /  1 

JAND  MAKE  AC  I  +  VE 

00205 *07 330 1 

MUL 

<.  v-20.5  *125112 

MOVL# 

1  /  1  /SEC 

f*'*.".*7  *  1  01  400 

INC 

0/0 

) ROUND  UP 

00210* 101002 

MOV 

0/0/SEC 

J  CARRY? 

(02 11*1 00400 

NEG 

0/0 

/•RESTORE  SIGN 

002 1 2  *  0247 1 3 

LDA 

1 /SINF 

00? 1 3  *  125  1 02 

MO  VL 

I  /  1  /SEC 

J  SI GN  OF  SIN 

CO? 1 4  *  1 00400 

NEG 

0/0 

0  02 1 5  *  1  1 5000 

MOV 

0/3 

ISHUNT  INTO  A C3 

OOP  1 6*024447 

LDA 

1  ,XG 

C-57 


002 1 7 ' 030676 

LDA 

2/COS 

00220* 102440 

SUBO 

0  /  0 

00221  *  1251 1 2 

MOVL# 

1  / 1 / SEC 

00222* 124440 
00223*073331 

NEGO 

MUL 

l  /  1 

00224  *  1 251 1 2 

MOVL# 

1  /  1  /SEC 

00225* 101400 

INC 

0/0 

00226* 101002 

MOV 

0/0/  SEC 

00227 • 103400 

NEG 

0/0 

00230*024667 

LDA 

1  /COSF 

C0231  *  1 251 02 

MOVL 

1  /  1  /SEC 

00232* 1 00403 

NEG 

0/0 

00233* 1 17000 

ADD 

0/3  {ADD  TO  PREVIOUS  RESULT 

1  LOCAL* 

• 

TRANSFORMED  X  NOW  IN  AC3 

00234*024666 

> 

LDA 

I  /L 

00235*023017S 

LDA 

0/ . IACC 

00236* 106400 

SUB 

0/1  >L-S 

00237  *  I 66433 

SU8E# 

3/  t  zSNC 

00240*002427 

JMP 

8SVP3  J OFF  THE  END 

00241  * l  1 6433 

SUBS# 

0/3/SNC 

00242*002425 

JMP 

1  WE  HAVE  A  HIT! 

8SVP3  /DITTO 

00243*036425 

LDA 

3/6HIT3R 

00244*020647 

LDA 

0/XA 

00245*024644 

LDA 

1  /  XB 

00246*123220 

ADD2R 

1/0 

00247*043400 

STA 

0/ @0/ 3  1  STORE  X  MID-POINT 

00250*020644 

LDA 

0/YA 

00251 *024641 

LDA 

1  zYB 

00252*123220 

ADDER 

1/0 

00253*043401 

STA 

0/81/3  l STORE  Y  MID-POINT 

00254*024645 

LDA 

1  /NP 

00255  *  1 52520 

SUBEL 

2/2 

00256* 1 46400 

SUB 

2/1 

00257*033623 

LDA 

2/AC2 

00260*020640 

LDA 

0/NB 

00261 *005403 

JSR 

3/3  I HI T  EXIT 

00262*002405 

JMP 

8SVP3  1  CARRY  ON  SCAN 

00263*056405 

STA 

3/8HIT3R  JNEW  RETURN  ADDRESS 

00264*002403 

JMP 

8SVP3  {CARRY  ON 

00265*000000 

XG: 

0 

00266*000000 

YG: 

0 

00267*000000 

SVP3: 

0 

00270*000024* 

HIT3R.* 

HI  T3 

i 

JTO  calculate  yt 


1  INPUT:  YG  IN 

AC1 

00271 *054435 

YTGET :  STA 

3/YTSAV 

00272*030623 

LDA 

2/COS 

00273  *  1 02440 

SUBO 

0/0 

00274*125112 

MOVL# 

1/1/SEC 

00275’ 124440 

NEGO 

1/1 

00276*073301 

MUL 

00277* 1251 12 

MOVL# 

1  /  1  /SEC 

00300* 101400 

INC 

0/0 

00301 *101002 

MOV 

0/0/S5C 

00302 ' 1 00400 

NEG 

0/0 

00303*024614 

LDA 

1  /COSF 

00304* 125102 

MOVL 

1  »  1  /SEC 

C  -  58 


00305* 1 00400 
00306  *  1  1 5000 
00307  *004756 
00310*030606 
0031 1  *  1 02443 
00312 ’ 125112 
00313* 124443 
00314*073301 
00315*1251 12 
00316* 101 403 
00317  *  101032 
00320  *  100433 
00321 *024604 
00322* 125102 
00323* 100400 
00324* l 16400 
00325*032401 
00326*000003  YTSAV 


NEG 

0  i  0 

MOV 

0i  3 

LDA 

1  >XG 

LDA 

2>  SIN 

suao 

0i0 

MOVL# 

1  1  1  ,S;C 

NEGO 

1 1 1 

MUL 

MOVL# 

1  1 1 i  S2C 

INC 

0i0 

MOV 

0 i 0i SEC 

NEG 

0i0 

LDA 

1  > SINE 

MOVL 

1  > liSrC 

NEG 

0i0 

SUB 

0i  3 

JMP 

@ YTSAV 

0 

•  END 


I  PART  1 AL  SUM  IN  AC3 


J SUBTRACT  FROM  PREVIOUS  RESULT 


1 


C- 59 


•  Till- 

TAPE 

•  ENT 

•  OVL, . CLN  C  » .RLNC* .WLNC 

.  ENT 

•READ* . WRIT 

•  E  X  T  D 

•  £  R  rL  L 

.  M  F  -1  *  .  M  1  *  .  M  7 

00000-00007  5  • 

.  OVL : 

OVLAY 

00031-000137’ 

.CLNC: 

CLING 

00302-0001  4?* 

. RLNC: 

RLINC 

00333-000145' 

.  WLNC : 

U'LINC 

00004-003304 • 

.READ: 

RDP3 

00005-030003’ 

.WRIT: 

WRTP3 
•  NREL 

JTHIS 

ROUTINE 

ALLOWS  THE  USER  TO  SAVE  FILES 

JWHILE 

IN  P-3. 

IT  FIRST  WRITES  (OR  READS) 

S  PAGE 

EERO  ON 

THE  LING  TAPE  (UNIT  # 1  * BLK# 1 50 ) 

JAND  THEN  WRITES  COR  READS)  THE  LINKED  FIELDS 

I C9EGINNING  AT 

BLK* 1 51). 

00003*354466 

WRTP3: 

STA 

3>RSAVE 

00301 ’ 176400 

SUB 

3>  3 

00032  *  054465 

STA 

3  *  FLAGF  ) SET  TO  0  FOR  WRITE 

00003 1 000404 

JMP 

BEG 

00004 ’ 054462 

P.DP3 : 

STA 

3>  RSAVE 

00005’ 176520 

SUBEL 

3*3 

00006*054461 

STA 

3*FLAGF  ; SET  TO  1  FOR  READ 

00007 ’020527 

BEG: 

LDA 

0*  DR  I VE 

000 1 0 ' 06207  A 

DOB 

0*  L I NC 

0001 1 *020454 

LDA 

0*  FBLK 

00012*126520 

SUBEL 

1*1  t ONE  BLK  FOR  PAGE  EERO 

00013’ 1 52400 

SUB 

2*2  l START  AT  LCTN  0 

00014*034453 

LDA 

3*  FLAGF 

00015’ 175034 

MOV 

3*  3 *  SER 

0001 6*000402 

JMP 

READF 

00017 '000406 

JMP 

WRITF 

00020 ’006002- 

READF: 

JSR 

e .RLNC 

00021 ’ 125005 

MOV 

1  *  1  *  SNR 

00022*000410 

JMP 

NXT  1 

00023 ' 063077 

HALT 

00024 ' 0037  63 

JMP 

BEG 

00025 ’ 006003- 

WRITF: 

JSR 

t . WLNC 

00026 ’ 125005 

MOV 

1  *  1  *  SNR 

00027  *003433 

JMP 

NXT  1 

00030*063077 

HALT 

00031  *  000756 

JMP 

BEG 

00032*023504 

NXT  1  : 

LDA 

0*DRI VE 

00033*062074 

DOB 

0*  L I NC 

00034*0240035 

LDA 

1  *  •  M 7  J  DETERM  I NE  LENGTH  OF 

00035 ' 0300325 

LDA 

2*. Ml  > LINKED  FIELDS  IN  USE 

00036  *  1  46400 

SUB 

2*1 

00037  *030425 

LDA 

2  *  C400 

00040* 1 02400 

SUB 

0*0 

00041 *073101 

D  I  V 

00042*020423 

LDA 

0  *  FBLK 

00043* 101 400 

INC 

0*0  J  START  AT  FBLK+1 

00044’ 125400 

INC 

1*1  ) ADD  AN  EXTRA  BLOCK 

00045*  O30002S 

LDA 

2*. Ml  {START  «  LINKED  LISTS 

00046  *  03442 1 

LDA 

3  »  FLAGF 

00047  *  175004 

MOV 

3  >  3  »  S  c  R 

00050*000402 

JMP 

READG 

00051 '000406 

JMP 

WRITG 

00052*006002- 

READG: 

JSR 

e.RLNC 

00053  *  1 25005 

MOV 

1  *  1  >  SNR 

00054  *  0024 1 2 

JMP 

6RSAVE 

00055*063077 

HALT 

00056*000754 

JMP 

NXT1 

00057*006003- 

WRITG: 

JSR 

e.WLNC 

00060* 125005 

MOV 

1 * 1 *  SNR 

00061 *002405 

JMP 

6RSAVE 

00062*063077 

HALT 

00063*030747 

JMP 

NXT1 

00064*000400 

C400S 

400 

00065*0001 50 

FBLK: 

1  50 

00066*000000 

RSAVE : 

0 

00067*000000 

FLAGF  S 

0 

{THIS 

ROUTINE 

READS  OVERLAY  NUMBER  1 

{  FROM 

TAPE.  IT  STARTS  BY  FIRST  TRANSFERING 

{ITSELF  TO  A 

SAFE  PLACE 

IN  HIGH  CORE. 

00070*000000 

NUB: 

0 

{NO  NEED  TO  TRANSFER  P-3  R4W 

00071 *000002 

TWO: 

2 

{ROUTINES  SO  START  AT  NUB 

00072*000003 

THREE: 

3 

00073*000070* 

FIRST: 

NUB 

00074*000326’ 

LAST: 

C8 

00075*020441 

OVLAY : 

LDA 

0*DRI ve 

00076*062074 

DOB 

0*LINC 

00077  *  03400 1 S 

LDA 

3* .MEM 

{HIGHEST  MEMORY  LCTN 

00100*030773 

LDA 

2, FIRST 

00101 *020773 

LDA 

0.LAST 

00102* 142400 

SUB 

2*0 

{ =NUM3ER  OF  WORDS  TO  BE  MOVED 

00103* 101400 

INC 

0*0 

00104*116400 

SUB 

0*3 

{NEW  ADDRESS 

00105*100400 

NEG 

0*0 

00106*025000 

ROUND: 

LDA 

1*0*2 

00107*045400 

STA 

1*0*3 

001 10* 101405 

INC 

0*0*  SNR 

001 1 1 *000404 

JMP 

OUT 

001 12’ 1 51400 

INC 

2*2 

001 13*175400 

INC 

3*3 

001 14*000772 

JMP 

ROUND 

00115*1 56400 

OUT: 

SUB 

2*3 

1=DI STANCE  MOVED 

001 16*030403 

LDA 

2  *  SHI  FT 

00t  17  *  1 57000 

ADD 

2*3 

00120*001400 

JMP 

0*3 

{  GO  TO  HI -CORE  COPY 

00121 *000122* 

SHIFT: 

.  + 1 

00122*020412 

LDA 

0  »  BLK  1 

00123*024412 

LDA 

1  *NBLKl 

00124*1 52400 

SUB 

2*2 

00125*00441  5 

JSR 

RLINC 

00126*125005 

MOV 

1  *  1 , SNR 

00127*000377 

JMP 

377 

{FORTRAN  START  ADDRESS 

00130*063077 

HALT 

{LINC  ERROR 

00131 *020405 

LDA 

0*DRI VE 

{TRY  AGAIN  (PRESS  CONTINUE) 

00132*062074 

DOB 

0*LINC 

001 33*000767 

JMP 

SHI  FT  + 1 

00134*000350 

BLK 1  : 

350 

00135*000055 

NBLK1 : 

55 

00136*000001 

DRIVE: 

1 

{NOW  FOLLOWS  THE  STANDARD  LINCTAPE 
{UTILITIES.  .  . 


l INPUT: 

ACO 

=F I RST  BLOCK 

1 

AC  1 

=NUMEER  OF  BLOCKS 

l 

• 

AC2 

=F I RST  CORE  ADDRE 

J 

7  OUTPUT 

J 

:  AC  1 

=ERROR  CODE 

001 37 • 054430 

i 

CLINC: 

STA 

3*  SAC3 

00140* 1 52400 

SUB 

2,2 

00141 *00041 7 

JMP 

CHKZ 

00142*054425 

RLINC: 

STA 

3>  SAC3 

00143*034433 

LDA 

3  ,  D2R 

00144*00341 5 

JMP 

READZ 

00145*054422 

WLINC: 

STA 

3,  SAC3 

00146*034423 

LDA 

3  >  D  1  W 

00147*054510 

STA 

3,DIXX 

00150*044501 

STA 

1 ,D2XX 

00151 *050417 

STA 

2, SAC2 

001 52*004423 

JSR 

DO 

00153*024476 

RAW: 

LDA 

1 ,D2XX 

00154*122400 

SUB 

1/0 

00155*030413 

LDA 

2/SAC2 

00156*151113 

MOVL# 

2,2. SNC 

00157*1 50300 

COM 

2,2 

00160*034473 

CHKZ : 

LDA 

3,D2C 

00161 *054470 

READZ: 

STA 

3 , D2XX 

00162*034410 

LDA 

3.D1RC 

00163*054474 

STA 

3 , D 1 XX 

00164*00441 1 

JSR 

DO 

00165*060274 

EXIT: 

NIOC 

LINC 

00166*002401 

JMP 

SSAC3 

00167*000000 

SAC3 : 

0 

00170*000000 

SAC2 : 

0 

00171*021000 

Diw: 

LDA 

0,0,2 

00172*000750 

D1RC: 

JMP 

READ-D 1 XX, 1 

00173* 132512 

D2R : 

SUBL# 

1 ,2,SZC 

00174*000000 

RETU : 

0 

00175*054777 

DO: 

STA 

3, RETU 

00176*075474 

DIB 

3, LINC 

00177*1751  12 

MOVL# 

3,3/SZC 

00200*030446 

JMP 

E  4 

00201  *  1 51 1 1 3 

MOVL# 

2,2, SNC 

00202*000410 

JMP 

FINDF 

00203* 1 50000 

COM 

2,2 

00204*1 76400 

FINDR: 

SUB 

3,3 

00205* 1 62000 

ADC 

3,0 

00206*060374 

NIOP 

LINC 

00207*004467 

JSR 

GETBL 

00210*101401 

FINDN: 

INC 

0,0, SKP 

0021 1 *000776 

JMP 

.-2 

00212*060174 

FINDF : 

NIOS 

LINC 

00213*004463 

JSR 

GETBL 

00214*000777 

JMP 

.-1 

00215*175224 

MOVZR 

3 , 3, SZR 

00216*000766 

JMP 

FINDR 

00217*125005 

FOUND: 

MOV 

1, 1 , SNR 

00220*002754 

JMP 

@  RETU 

00221  *  1 66000 

ADC 

3,  1 

00222*040474 

STA 

0, TEMPI 

00223*044474 

STA 

1 /TEMP2 

00224*024476 

LDA 

1 , SIZE 

C-G2 


00225’ 1 47O00 

ADD 

2*  1 

G0226 '0OO431 

JMP 

D  l  XX 

00227 '063674 

READ: 

SKPDN 

L1NC 

00230 '000777 

JMP 

.-1 

00231 '063474 

SKPBN 

LINC 

002  32 ' 0004 1 6 

JMP 

RDAT 

00233 ' 06047  4 

RCHK : 

D  I  A 

0  >  L  I  NC 

00234* 1 1 6405 

SUB 

0*  3* SNR 

00235 ' 000434 

JMP 

SCHK 

00236*024465 

El  : 

LDA 

1  *C1 

00237 ' OO3403 

JMP 

•  +3 

00240*034462 

E2: 

LDA 

3.SI2E 

00241 *024463 

LDA 

1  *C2 

00242*020454 

LDA 

0*  TEMPI 

00243*000722 

JMP 

EXIT 

00244*024461 

E  3 : 

LDA 

1  *C4 

00245*000720 

JMP 

EXIT 

00246*024460 

U1 

LDA 

1  *  C8 

00247 ' 0007 1 6 

JMP 

EXIT 

00250*060474 

RDAT : 

DIA 

0*LINC 

00251 • 1 32512 

D2XX : 

SU3L# 

1 ,2, SEC 

00252*041000 

STA 

0*  0  *  2 

00253*000402 

D2C: 

JMP 

.+2 

00254*061074 

WDAT: 

DOA 

0  *  L INC 

00255* 1 1 7000 

BL00P: 

ADD 

0>3 

00256* I  51400 

INC 

2*2 

00257*021000 

D1XX: 

LDA 

0*0*2 

00260*063074 

DOC 

0*LINC 

00261 *063674 

SKPDN 

LINC 

00262*000777 

JMP 

w-1 

00263*063474 

SKPBN 

LINC 

00264*000770 

JMP 

WDAT 

00265*075074 

WCHKJ 

DOA 

3*  L INC 

00266*075474 

DIB 

3*LINC 

00267 ’ 175004 

MOV 

3*  3*  S2R 

00270*000756 

JMP 

E4 

00271 *132414 

SCHK: 

SUB# 

1  *2,S2R 

00272*000746 

JMP 

E2 

00273*020423 

NEXT: 

LDA 

0.TEMP1 

00274*024423 

LDA 

1  *TEMP2 

00275*000713 

JMP 

F I NDN 

00276*054420 

GETBL: 

STA 

3*TEMP1 

00277*034421 

LDA 

3*MLIM 

00300*162432 

SUBZ# 

3*0* S2C 

00301 *000405 

JMP 

WAIT 

00302*034417 

LDA 

3*  PL IM 

00303*162032 

ADC2# 

3*0*S2C 

00304*000740 

JMP 

E3 

00305*074474 

DIA 

3*LINC 

00306*063474 

WAIT: 

SKPBN 

LINC 

00307*000777 

JMP 

WAIT 

00310*063774 

SKPD2 

LINC 

0031 1 *000774 

JMP 

WAIT-1 

00312*074474 

DIA 

3*LINC 

00313*1 16543 

SUBOL 

0*  3*  SNC 

00314*010402 

IS2 

TEMPI 

00315*002401 

JMP 

9TEMP1 

00316*000000 

TEMPI : 

0 

00317*000000 

TEMP2: 

0 

00320*177770 

MLIMt 

177770 

C-63 


6032  t ’000620 

PL  I  '■) : 

620 

00322  *000400 

SIPE: 

400 

00323 ’000301 

Cl  : 

1 

00324 ’ 003002 

C2 : 

2 

00325*000004 

C4 : 

4 

00326*000310 

C8 : 

10 

.END 


C-64 


.TITL  UTIL 

} SEVERAL  UTILITY  PROGRAMS 

.ENT  .HI TC, • I ACC> • PRN  t , .PAGE. .LENG.  .SCAL 
.ENT  • VFAC, . I PRN, . PRN2, .MESS, .ALPH, .TYP 
.ENT  .AXIS,  .GETT,  .DBIN,  .CHEK,  .WORD,  .  DB0 
. EXTD  .Ml , .DISS.  .LPAP. . MSKR, .PLTS 
.  ZREL 


00000-003005 

. 1ACC: 

5 

00001 -OOO000  * 

. HI TC : 

H I  TC 

00002-000052  * 

•  PRN  1  S 

PRN  1 

00003-000270* 

•  PRN2  t 

PRN2 

00004-003164  * 

. IPRN: 

TART 

00005-000331  * 

.MESS! 

MESS 

00006-000655  * 

.WORD: 

WORD 

00007-000062  * 

•ALPH: 

ALPHA 

0001 0-000067  * 

.PAGE: 

PAGE 

0001 1-000101  * 

•LENG: 

LENG 

00012-000126* 

.TYP: 

TYPE 

00013-0001 51  * 

. SCAL : 

SCAL 

00014-000421  * 

.AXIS: 

AXIS 

00015-000560* 

•GETT: 

GET 

00016-000572* 

.DBIN: 

DBIN 

00017-000570* 

•  DB0 : 

DB0 

00020-000640* 

.CHEK: 

CHEK 

00021-000003 

. VF AC: 

3 

•  NREL 


J 

1  ROUTINE  TO  FIND  WHICH  BLOCK  HAS  CENTROID 
iCORRESPONDlNG  TO  GIVEN  X,Y  CO-ORDINATE 


00000*023400 
00001 *040445 
00002 ' 023 40 1 
00003 ' 040444 
00004’ 054444 
0000  c ’  1 02400 
00006 ' 040443 
00007 ’ 034001 S 
00010*031400 
0001 1  ’ 1  SI  005 
000 1 2 ’ 000432 
000 13*021 01 4 
00314* 101005 
00015*000424 
0001 6*021001 
00017  *024427 
00020* 1 22400 
00021 '101112 
00022  *  1 00400 
00023*024300- 
00024* 106512 
00025  *  OO04  1 4 
00026*021003 


J 

J  JSR  e.HITC 

I  X  (ADDRESS  OF  INPUT  X) 

l  Y  (ADDRESS  OF  INPUT  Y) 

J  (RETURN  HERE  IF  NO  HIT) 

i  (RETURN  HERE  WITH  POINTER  TO  BLOCK 

»  IN  AC2  IF  SUCCESSFUL,  AND  NB  IN  AC1) 


J 


HITC: 

LDA 

0 ,  @  0,  3 

STA 

0,X 

LDA 

0,ei .3 

STA 

0,  Y 

STA 

3.SVH3 

SUB 

0,0 

STA 

0,NB 

LDA 

3,  .Ml 

LOOP: 

LDA 

2,0,3 

MOV 

2, 2, SNR 

JMP 

NOHIT 

ILAST  BLOCK 

LDA 

0, 14,2 

MOV 

0, 0,SNR 

JMP 

NEXT 

1  EERO  AREA 

LDA 

0,1,2 

;xc 

LDA 

1  >X 

SUB 

1 ,0 

MOVL# 

0 , 0 , S  EC 

NEG 

0,0 

JABS(XC-X) 

LDA 

1 , . IACC 

SURL# 

0,1, SEC 

JMP 

NEXT 

JKOT  THIS  BLOCK 

LDA 

0,3,2 

nc 

ana  atrttei 
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00027*024420 

LDA 

1  *Y 

00030*1 22400 

SUB 

1*0 

00031  *  101 1 12 

MOVL# 

0*  0  *  SEC 

00032* 100400 

NEG 

0*0 

; ABS(YJ-Y) 

00033  *  024000- 

LDA 

1  * . I  ACC 

00034*1 06512 

SUBL# 

0* 1  *  SEC 

00035*000404 

JMP 

NEXT 

00036*034412 

LDA 

3  *  SVH3 

J  MUST  BE  HIT 

00037*024412 

LDA 

1  *  NB 

00040*001403 

JMP 

3*3 

IGOOD  EXIT 

00041  *  175400 

NEXT: 

INC 

3*3 

00042*010407 

ISE 

NB 

00043*000745 

JMP 

LOOP 

00044*034404 

NOHIT: 

LDA 

3  *  SVH3 

00045*001402 

JMP 

2*3 

IBAD  EXIT 

00046*000000 

X: 

0 

00047*000030 

Y: 

0 

00050  *  000000 

SVH3 : 

0 

00051 *000000 

NB: 

0 

TO  OUTPUT  A  SINGLE  CHARACTER*  WAITING 
UNTIL  THE  TTY  IS  FREE. 

JSR  e.PRNl 

N  <N  IS  THE  CHARACTER  TO  BE 
PRINTED  CNOT  ADDRESS! ) 
(ACCUMULATORS  ARE  SAVED) 


00052*040407 

PRN  l : 

STA 

0  * AC0SV 

00053*021400 

LDA 

0*0*3 

00054*06351 1 

PRH: 

SKP8E 

TTO 

00055*000777 

JMP 

•  -1 

00056*0611  1  l 

DOAS 

0,TTO 

03057*020402 

LDA 

0* AC0SV 

00060*001401 

JMP 

1*3 

00061 *000000 

AC0SV: 

0 

) 

J TO  SET  TEKTRONIX  TO  ALPHA  MODE 


f 

t 

JSR 

e.ALPH 

|i 

00062*054404 

t 

alpha: 

STA 

3*  ASAV 

|  ' 

00063*004767 

JSR 

PRN  1 

\ 

00064*000037 

37 

k: 

IF 

00065*002401 

JMP 

@  ASAV 

f 

00066*000000 

ASAV: 

0 

i, 

a; 

i 

t-  * 

}  TO  .ERAS 

IE  SCREEN 

00067 '05441 0 
00070*004762 
00071 *000033 
00072*004760 
00073*00001  4 
00074* 1 02400 
00075*0400035 
00076*002401 
00077*000000 


1 

l 

\ 

PAGE! 


S  VP3 : 

s 


JSR  @ . PAGE 


STA 

JSR 

33 

JSR 

1  4 

SUB 

STA 

JMP 

0 


3*  SVP3 
PRN1 

PRN  1 

0*0  J SUPPRESS  HARD-COPY 

0*  •  LPAP  ! LOAD  PLOTTING 
@SVP3 


A 


C-6  fi 


i routine  to  return  LENGTH.  L  Of  blot  NP 
i  JSR  A.LENG 

1 


J  INPUT: 

A  C 1  -  S 

IDE  ft  (NP) 

l 

i  OUTPUT: 

i 

START  =  2  5 

AC2  -  POINTER  TO  BLOCK  DATA 

AC0  -  LENGTH  L 

P0002S 

JPOINT 

DATA  STARTS  AT  25RD  FORD 

020026 

SS  =  START  + 1 

000027 

SL=  ST  ART  *2 

00100*037777 

TMSK :  7777 

iTO  REMOVE  TYPE  » 

00101 *054776 

LENG:  STA 

3.SVP3 

00102*021030 

LDA 

0.0.2 

i CONTROL  LORD 

00103*034420 

LDA 

3. LBIT 

00104  *  1  17414 

AND# 

0  >  3 , SER 

} LONG  BLOCK? 

00105*000407 

JMP 

LONG 

}  YES 

00106* 135120 

NOVEL 

1.3 

;np*2 

00107 ' 1 57000 

ADD 

2.3 

001 10*021426 

LDA 

0.SS.3 

.'GET  L 

001 1 1 *034767 

LDA 

3. TMSK 

001 12* 163400 

AND 

3.0 

001 13*032764 

JMP 

@SVP3 

;EXIT  V.ITH  L  IN  AC0 

00114*135120 

LONG:  HOVEL 

1.3 

001 15*137000 

ADD 

1.3 

INP*3 

00116*1 57000 

ADD 

2.3 

00117*021427 

LDA 

0.SL.3 

00120*034760 

LDA 

3.  TMSK 

00121  *  163430 

AND 

3.0 

00122*002755 

JMP 

@SVP3 

;exit 

00123*020000 

LBIT:  20000 

J 

iROUTINE  TO  RETURN  SURFACE  TYPE  » 

J  FOR  A  GIVEN  EDGE 
l  JSR  P.TYP 

i INPUT:  AC2  =  DATA  POINTER  FOR  GIVEN  BLOCK 

J  AC  I  =  EDGE  «  (NP) 

J  OUTPUT:  AC0  =  TYPE  ft 
l  ACt  AND  AC2  ARE  PRESERVED 

; 


00124*1 70000 

LMSK: 

1 79000 

;for  MASKING  OUT 

LENGTH  PART 

00125*000000 

T5AV: 

0 

00126*054777 

TYPE: 

STA 

3.TSAV 

00127*021000 

LDA 

0.0.2  S CONTROL 

LD 

00130*034773 

LDA 

3. LBIT 

00131  *1  17414 

AND# 

0.3.S2R 

00132*000405 

JMP 

LONG! 

00133*135120 

MOVEL 

1 . 3 

'  ’34*157000 

ADD 

2,3 

35*021426 

LDA 

0.SS.  3 

36*000405 

JMP 

NOSE 

37*135120 

LONG  l  : 

NOVEL 

1,3 

0140*1 37000 

ADD 

1 ,3 

00141  *  1 57000 

ADD 

2,3 

00142*021427 

LDA 

0.SL.  3 

00143*034761 

NOSE: 

LDA 

3, LMSK 

00144’ 163700 

ANDS 

3,0 

00145*103120 

ADD2L 

0,0 

00146*103120 

ADD2L 

0,0 

00147* 101300 

MOVS 

0,0 

00150*002755 

JMP 

ATSAV 

C  -  6  7 


j 


: VECTOR  SCALING  ROUTINE 


00151  •  (53O02  1  - 

SCAL: 

LDA 

2.  .  VFAC 

001  52  ‘  1  0 2 a () o 

SUB 

0.0 

00153*044410 

STA 

1  .  AC1 

00154*125112 

MOVL# 

1  ,  ! .SEC 

C0155* 124400 

NEG 

1  .  I 

001  56  *0731  01 
001 57  *030404 

D 1  V 

LDA 

2.AC1 

00160* 151112 

MOVL# 

2. 2. SEC 

00161*1 24403 

NEG 

1  .  1 

00162*001 4O0 

jmp 

0.3 

00163*000000 

AC  1  : 

0 

9 

J  ROUT  I NE  TO  PRINT  A  R I GHT- JUST  I F I  ED  INTEGER 

J  IN  A 

GIVEN  FIELD  LENTH.  WITH  LEADING  EEROS 

;0R  WITHOUT 

J 

}  JSR  P. 

IPRN 

t  ( 

• 

-1  N 

(VALUE.  NOT  ADDRESS) 

9 

t 

WHERE 

N  IS  FIELD  LENGTH  (EEROS  PRINTED 

1 

IF  NEGATIVE. 

I 

t 

THE  NUMBER  TO  BE  PRINTED  IS  IN  AC0 

00164*031 430 

9 

TART: 

LDA 

2.0.3 

00165*101112 

MOVL# 

0.0. S2C 

00166* 100400 

NEG 

0.3 

001 67 ' 1 75400 

INC 

3.3 

00170*054524 

STA 

3.SAV3 

00171*151112 

MOVL# 

2.2. SEC 

00172*150401 

NEG 

2.2.SKP 

00173*126401 

SUB 

1  .  1  .SKP 

00174* 126520 

SU9EL 

1  .  1 

00175*044520 

STA 

1 . FLAG  ; STORE  EERO/BLANK  FLAG 

00176*050520 

STA 

2. FIELD  J  F I ELD  LENGTH 

00177*034475 

LDA 

3. TENS 

00200*054517 

STA 

3. POINT 

00201 *034502 

LDA 

3. HOLD 

00202*05451 6 

STA 

3.PPNT 

00203*034507 

LDA 

3. JOLD 

00204*054414 

STA 

3. MM 

00205*1 52400 

SUB 

2.2 

00206*03651 1 

BIG: 

LDA 

3. @P0 1  NT 

00207*010510 

IS2 

POINT 

00210* 175005 

MOV 

3. 3. SNR 

0021 1 *00041 6 

JMP 

END 

00212* 126400 

SUB 

I  .  1 

00213' 1 62422 

SMALL: 

SUBE 

3.0.S2C 

00214* 125431 

INC 

1 . 1 .SKP 

00215  *  1 63001 

ADD 

3.0. SKP 

00216*000775 

JMP 

SMALL 

00217*046501 

STA 

l . APPNT 

00220* 12501 5 

MM: 

MOV# 

I  .  I  .SNR 

00221 *000404 

JMP 

FRED 

00222*034471 

LDA 

3. JNEW 

00223*054775 

STA 

3. MM 

00224* 1 51400 

INC 

2.2  J  COUNT  N0N-2ER0  DIGITS 

00225*010473 

FRED: 

IS2 

PPNT 

00226*000760 

JMP 

BIG 

C-68 


00227  *034467 

ENDS 

LDA 

3, FI ELD 

00230* 1 51005 

MOV 

2, 2, SNR 

00231  *  151400 

INC 

2,2 

00232*050467 

STA 

2, SAV2 

00233* 1 56423 

5UBE 

2 , 3, SNC 

00234*000427 

JMP 

ASTER 

JFIELD  TOO  SMALL 

00235* 170405 

NEG 

3, 2, SNR 

00236*000410 

JMP 

DIGIT 

J  NO  EEROS 

00237*024456 

LDA 

1 , FLAG 

00240*020463 

LDA 

0 , EERO 

0O241 *  125005 

MOV 

1  ,  1  ,  SNR 

00242*020462 

LDA 

0, BLANK 

00243*006003- 

JSR 

§ • PRN2 

t SEND  OUT  LEADING 

00244  *  1 51404 

INC 

2,2, SER 

i EEROS  OR  BLANKS 

00245*000776 

JMP 

.-2 

00246*030443 

DIGIT: 

LDA 

2,  BOT 

00247*024452 

LDA 

1 , SAV2 

00250*132400 

SUB 

1  ,2 

00251  *  124405 

NEG 

1 , 1 ,SNR 

00252*002442 

JMP 

@SAV3 

;nothing  TO  PRINT 

00253*021000 

LOOP  1 : 

LDA 

0,0,2 

00254*034447 

LDA 

3, EERO 

.00255*163030 

ADD 

3,0 

00256*006003- 

JSR 

@ . PRN2 

S SEND  OUT  DIGIT 

00257*151400 

INC 

2,2 

00260' 125404 

INC 

1  ,  1  ,SER 

00261 *000772 

JMP 

L00P1 

00262*002432 

JMP 

SSAV3 

J  EXIT 

00263*020437 

ASTERs 

LDA 

0,  AST 

i SEND  OUT  ASTERISKS 

00264*006003- 

NIT: 

JSR 

6.PRN2 

00265*014431 

DSS 

FIELD 

00266*000776 

JMP 

NIT 

00267*002425 

JMP 

6SAV3 

i 

iROUTINE  TO  PRINT  OUT  SINGLE  CHARACTER 


t 

JSR  e. 

PRN2 

l INPUT: 

CHARACTER  IN  AC0 

00270*06351 1 

J 

PRN2: 

SKPBE 

TTO 

00271 *000777 

JMP 

.-1 

00272*061 1 1 1 

DOAS 

0,TTO 

00273*001400 

JMP 

0,3 

000012 

J 

•  RDX 

10 

00274*000275* 

TENS: 

•  +  l 

00275*023420 

1  0000 

00276*001750 

1000 

00277*000144 

100 

00300*000012 

10 

00301 *000001 

l 

00302*000000 

0 

00303*000304* 

HOLD: 

.*•1 

000005 

•  BLK 

5 

0000 1 0 

•  PDX 

8 

00311  *00031  1  * 

BOT: 

• 

00312*125015 

JOLDs 

MOV# 

1 , 1 ,SNR 

00313*000404 

JNEW  s 

JMP 

.♦4 

00314*000000 

SAV3 : 

0 

00315*000000 

FLAGS 

0 

00316*000000 

FIELD: 

0 

C-69 


00317 ’000000 

POINT: 

0 

00320 ’ 000PO0 

PPNT  : 

0 

00321 *000000 

SAV2: 

0 

00322*000052 

AST: 

00323*003060 

EERO: 

•*0 

00324  *  000040 

BLANK: 

•  l 

TO  PRINT  MESSAGE  ON  SCREEN  AT 
A  SPECIFIC  LOCATION 


1 

JSR  e 

.MESS 

i 

TEXT 

(ADDRESS  OF  TEXT) 

l  <- 

)  X 

(X.Y  LOCATION  OF  MESSAGE 

s 

t 

i 

i 

Y 

START  (VALUES.  NOT 

ADDRESSES).  NEGATIVE  X  DPA*S 

A  LINE  UNDER  TEXT) 

00325*000000 

i 

FLAG  1 : 

0 

00326*000000 

MS  AV : 

0 

00327 ' OPOO00 

E3PNT  : 

0 

00330*000000 

COUNT: 

0 

00331 *021400 

MESS: 

LDA 

0  ,  0,  3 

00332* 101120 

MOVEL 

0.0  ) CREATE  BYTE  POINTER 

00333*040774 

STA 

0.BPNT 

00334*021401 

LDA 

0.1.3  )X 

00335*101 1 12 

MOVL# 

0. 3. SE  C 

00336* 100401 

NEG 

0.0. SKP 

00337*126401 

SUB 

1  .  1  .SKP 

00340  *  126520 

SUBEL 

I  .  1 

00341 *044764 

STA 

1  .FLAG1 

00342*025402 

LDA 

1.2.3  ;y 

00343*054763 

STA 

3.MSAV 

00344*040451 

STA 

0.XSAV  J REMEMBER  X  A  Y  FOR 

00345*044451 

STA 

l.YSAV  ; LATER  PLOTTING  OF  LINE 

00346*0060055 

JSR 

e.PLTS  »  INITIALISE  BEAM 

00347 ’000000 

0 

;beam  OFF 

00350*006007- 

JSR 

e .ALPH 

00351 ' l 02400 

SUB 

0.0 

00352 ' 0407  56 

STA 

0. COUNT 

J  ROUT  I NE  TO  PICK  BYTES  UNTIL  EERO  BYTE  FOUND 

00353*030754 

PICK: 

LDA 

2.BPNT 

00354*010753 

I  SE 

BPNT 

00355*1 51220 

MOVER 

2.2 

00356*021000 

LDA 

0.0.2 

00357 '03O004S 

LDA 

2.  .MSKR 

00360* 101032 

MOV 

0.0, SEC 

00361  *  101300 

MOVS 

0.0 

00362*1 43405 

AND 

2,0, SNR 

00363*000404 

JMP 

RET 

00364*010744 

IS:1 

COUNT 

00365*006003- 

JSR 

9 . PRN2  J  SEND  OUT  CHARACTER 

00366*000765 

JMP 

PICK 

00367*020736 

RET: 

LDA 

0  ,  FLAG 1 

00370* 101005 

MOV 

0.0, SNR 

0037 1 *003422 

JMP 

PAST 

J  TO  PLOT  LINE 

UNDER  TEXT 

00372*024424 

LDA 

l.YSAV 

00373*020424 

LDA 

0  ,  GAP 

00374 ’ 1 06400 

SUB 

0.  1 

00375'04442I 

STA 

l.YSAV 

00376  *  0204 1 7 

LDA 

0. XSAV 

00377 ' 0060.  15S 

JSR 

e.PLTS 

1FIRST  END  OF 

00400*000000 

0 

00401  *  1 02  4  00 

SUB 

0.0 

00400*0244! 6 

LDA 

1  ,N  1  4 

00403  *  C30725 

LDA 

2. COUNT 

00404*07330! 

MUL 

03405*023410 

LDA 

0. XSAV 

00406* 123000 

ADD 

1 .0 

00407  *  024407 

LDA 

1  .  Y  SAV 

0041 0 ’006035S 

JSR 

@.PLTS 

1  SECOND  END 

0041 l '000001 

1 

00412*006007- 

JSR 

e.ALPH 

00413  *  0347 1 3 

PAST  : 

LDA 

3.MSAV 

00414  *  001403 

JMP 

3.3 

1  EXIT 

0041 5*000000 

XSAV : 

0 

00416*000000 

YSA  V : 

0 

00417*000003 

GAP: 

3 

) GAP  BETWEEN  TEXT  AND 

00420*000016 

N  1  4 : 

1  6 

JWIDTH 

OF  ONE  LETTER 

J  TO  DRAW  A  SCALE  WITH  10  TICK  MARKS, 
j E I THER  HOR IE.  OR  VERT..  WITH  THE 
J  MARKS  ABOVE  OR  BELOW  AXIS. 

) 


1 

JSR  e 

•  AXIS 

) 

(->  L 

(LENGTH) 

1 

(-)  X 

(STARTING  X 

) 

Y 

AND  Y  CO-ORD) 

1 

(ALL  . 

ARGUMENTS  ARE  VALUES,  NOT 

l 

ADDRESSES) 

J 

)  IF  L 

HAS  -  SIGN.  AXIS  WILL  BE  PARALLEL 

JTO  Y 

AXIS)  OTHERWISE  PARALLEL  TO  X  A XI. 

1 

JIF  X 

HAS  -  SIGN.  TICKS  WILL  BE  BELOW 

J AXIS. 

OTHERW 

ISE  ABOVE 

00421 *054521 

1 

AXIS: 

STA 

3.TTSAV 

00422*021400 

LDA 

0,0,3 

00423*101 1 12 

MOVLff 

0,0, S2C 

00424* 100401 

NEG 

0,0, SKP 

00425*126401 

SUB 

1,1 ,SKP 

00426* 126520 

SUB2L 

I  ,  l 

00427*044517 

STA 

l .FLOG  ) X/Y  FLAG 

O0430 '040505 

STA 

0.L 

00431 *021401 

LDA 

0,1,3 

00432  *  1 01  I l 3 

MOVL# 

0,0, SNC 

00433*000405 

JMP 

ABOVE 

00434  *  1 00400 

NEG 

0,0 

00435  *  024512 

LDA 

1  ,TICB 

00436*044455 

STA 

1  ,  REPL 

00437*000403 

JMP 

GETY 

00440*024510 

ABOVE: 

LDA 

1  ,TICA 

0044 1 *044452 

STA 

1  , REPL 

00442*040474 

GETY: 

STA 

0,  XN 

00443*025432 

LDA 

1,2,3 

00444*044473 

STA 

1  ,  YN 

00445*030470 

LDA 

2.L 

00446* 151220 

M0V2R 

2,2 

00447  *  1  51220 

M0V2R 

2,2 

i 

i 

f 

I 


00450  *  1 51220 

00451 '151 220 

G0452 • 1 51220 

00453*050465 

00454’ l 47  000 

00455*004474 

00456*000000 

00457  *  020457 

00460  *  024457 

00461 *004470 

00462*000001 

00463*020453 

00464*024453 

00465*030450 

00466  *  1 43000 

00467  *004462 

00470*000301 

00471 *020445 

00472*024445 

00473*030442 

00474* 1 43000 

00475*030443 

00476* 1 47000 

00477  *  004452 

00500*000001 

00501  *  1 02400 

00502*024433 

00503*030440 

00504*050440 

00505* 151400 

00506*073101 

00507*044436 

00510*020430 

00511 *101220 

00512*024425 

00513*107000  REPL 

00514*044425 

00515*024422  TEA: 

00516*020420 

00517*030426 

00520’ 1 43000 

00521 *040415 

00522*004427 

00523*000000 

00524*020412 

00525*024414 

00526*004423 

00527*000001 

00530*014414 

00531 *000764 

00532*006007- 

00533*034407 

00534*001403 

00535*000000  L: 

00536*000000  XN: 

00537*000000  YN: 

00540*000000  Ll: 

00541*000000  YN 1 : 

00542*000000  TTSAV 

00543*000011  NINE: 


MOVHR 

2*2 

NOV  HR 

2*2 

MOVHR 

2*2 

STA 

2*  L 1 

ADD 

2*  1 

JSR 

0 

PLOT 

LDA 

0*  XN 

LDA 

1  *  YN 

JSR 

1 

PLOT 

LDA 

0*  XN 

LDA 

1  *  YN 

LDA 

2  #L 

ADD 

2*0 

JSR 

1 

LDA 

PLOT 

0*  XN 

LDA 

1  *  YN 

LDA 

2*L 

ADD 

2*0 

LDA 

2.L1 

ADD 

2,  1 

JSR 

1 

PLOT 

SUB 

0*0 

LDA 

1  *L 

LDA 

2*NINE 

STA 

2  »  TCNT 

INC 

DIV 

2*2 

STA 

1 *DIVIS 

LDA 

0*L1 

MOVHR 

0*0 

LDA 

1  *  YN 

ADD 

0*1 

STA 

1  *  YN1 

LDA 

1  *  YN 

LDA 

0*  XN 

LDA 

2*DI VIS 

ADD 

2*0 

STA 

0  *  XN 

JSR 

0 

PLOT 

LDA 

0*  XN 

LDA 

I  *  YN1 

JSR 

I 

PLOT 

DSH 

TCNT 

JMP 

TEA 

JSR 

e.ALPH 

LDA 

3*  TTSAV 

JMP 

3*3 

0 
0 
0 
0 
0 
0 
1  1 
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JTHIS  V»0RD  CAN  BE  CHANGED 
iTO  PLOT  TICKS  ON  AXIS 


<1 


00544'  nooooo 

TCNTS 

0 

00545*000000 

DI  VIS: 

0 

00546*000000 

FLOG: 

0 

00547  *  1 06400 

T I CB : 

SUB 

0,  1 

00550* 1 07000 

TICA: 

ADD 

0,  1 

00551 *030775 

PLOT: 

LDA 

2, FLOG 

00552* 1 51005 

MOV 

2, 2, SNR  ,‘X  OR  Y  AXIS? 

00553 ' 000404 

JMP 

JOE 

00554  *  1  1 1 000 

MOV 

0,2 

00555’ 121000 

MOV 

!  ,0 

00556* 1 45000 

MOV 

2,  1 

00557*002005$ 

JOE: 

* 

JMP 

e.PLTS 

J 

J  TO  GET 

A  TTY 

CHARACTER 

1 

JSR 

e  .GETT 

1  OUTPUT 

:  CHARACTER  IN  AC0 

00560*063610 

J 

GET: 

SKPDN 

TTI 

00561 *000777 

JMP 

.-l 

00562*060510 

DIAS 

0,  TTI 

00563* 101300 

MOVS 

0,0 

00564* 101 120 

M0V2L 

0,0 

00565*101220 

MOVER 

0,0 

00566*101300 

MOVS 

0,0 

00567*001400 

J 

JMP 

0,3 

t 

JDECIMAL  TO  BINARY  ROUTINE  CALMOST 

i IDENTICAL  TO 

DATA  GENERAL ' S 7 

1 

jsr  e. 

DBIN 

J OUTPUT 
i 

DB0 : 

• 

• 

#  IN  AC  1 

00570*054443 

STA 

3>DBSAV 

00571 *000403 

JMP 

DBI 

00572*054441 

DBIN: 

STA 

3, DBSAV 

00573*006015- 

JSR 

P.GETT 

00574* 126400 

DBI  : 

SUB 

1,1  ;ENTRY  WITH  FIR5T 

00575' 044437 

STA 

1 , EC  1 0  iCHARACTER  IN  AC0 

00576*044437 

STA 

l ,EC1 1 

00577*024437 

LDA 

1 , EC20 

00600’ 1 06405 

SUB 

0, 1 .SNR 

00601 *000405 

JMP 

EC96 

00602*024435 

LDA 

1 ,EC2! 

00603' 106404 

SUB 

0, l.SER 

00604*000404 

JMP 

EC98 

00605*010427 

1SE 

EC1  0 

00606*006003- 

EC96: 

JSR 

@.PRN2 

00607*00601 5- 

EC97 : 

JSR 

S.GETT 

00610*006003- 

EC9  8 : 

JSR 

@.PRN2 

0061 1 *006020- 

JSR 

§ • CHEK 

0O61 2  *  000405 

JMP 

EC9  5 

00613*024422 

LDA 

1  >ECl  l 

00614*00441 1 

JSR 

EC50 

00615*044420 

STA 

1 ,EC1  1 

0061 6*000771 

JMP 

EC97 

00617*024416 

EC95: 

LDA 

1  ,EC1  1 

00620' 125120 

MOVEL 

l  ,  1 

00621 *014413 

DSZ 

EC1  0 

00  622  *  12  5221 

MOVER 

1 » 1 ,SKP 

00623 ' 1 24640 

NEGOR 

1  ,  1 

JM.., 


C  -  72 


00624 ' 002407  JMP  @D3SAV 

00625*131120  EC50 :  M0V2L  1.2 

00626*151120  M0V2L  2>2 

00627*147000  ADD  2/t 

00630*125120  MOVeL  1/1 

00631*107000  ADD  0/1 

00632*031400  JMP  0»  3 

00633*000330  DBSAV :  0 

00634*000000  EC  1 0 :  0 

00635*000000  ECU:  0 

00636*000053  EC20:  *'♦ 

00637*000055  EC2 1  : 

I 

J  TO  CHECK  IE  ASCII  BYTE  IS  A  DIGIT 
J l  REDUCE  IT  TO  BINARY  IF  IT  IS 
J  JSR  @.CHEK 

I  --  RETURNS  HERE  IF  NOT  DIGIT  -- 

i  --  ••  •*  "  is 

J1NPUT:  AC0 
J OUTPUT:  AC0 
^DESTROYED:  AC1 
1 


00640*024412 

CHEK: 

LDA 

1 /MSK1 

00641  *  123400 

AND 

1/0 

00642*024412 

LDA 

1/N9 

00643*122032 

ADCS# 

1  /  0 / SEC 

00644*001400 

JMP 

0/3 

00645*024406 

LDA 

1/N0 

00646* 106032 

ADC2# 

0/1/S2C 

00647*001400 

JMP 

0/3 

00650*122400 

SUB 

1/0 

00651*001401 

JMP 

1/3 

00652*000177 

MSK1  : 

177 

00653*000060 

N0 : 

"0 

00654*000071 

N9 : 

"9 

J 

J ROUTINE  TO  GET  AN  ALPHANUMERIC  STRING  FROM 
JKEYBOARD  AND  STORE  IT  IN  BYTE  FORMAT  KITH 
JA  TERMINATING  EERO  BYTE 

J 

I  JSR  e.WORD 

J  ADDR  (ADDRESS  TO  PUT  STRING) 

f 

JINPUT:  FIRST  CHARACTER  IN  AC0 
JALL  ACCUMULATORS  ARE  LOST 


J 


00655*031400 

WORD: 

LDA 

2/0/3 

JADDR  TO  PUT  STRING 

00656  ’  175400 

INC 

3/3 

00657*054446 

STA 

3/W0SAV 

00660*151 120 

M0V2L 

2/2 

JBYTE  POINTER 

00661 *050445 

STA 

2/TWP 

00662*030445 

LDA 

2/MAXCS 

00663*050445 

STA 

2/TRAP 

00664*030442 

MIKE: 

LDA 

2/TWP 

00665*010441 

IS2 

TWP 

00666*024436 

LDA 

J  /CR 

00667* 10641 5 

SUB# 

0/ 1 /SNR 

00670*00041 6 

JMP 

END  1 

00671  *  1 55220 

M0V2R 

2/3 

00672*031 400 

LDA 

2/0/3 

J3LD  WORD 

00673*024436  LDA 

00674  *  1 5! 002  MOV 

00675*151300  MOVS 

00676*133400  AND 

00677*113000  ADD 

00700*151002  MOV 

00701*151300  MOVS 

00702*051403  STA 

00703*014425  DSE 

00704*003415  JMP 

00705*030421  LDA 

00706*  155220  END  1 :  MOVER 

00707*031400  LDA 

00710*151002  MOV 

007 1 1 *000404  JMP 

00712*152400  SUB 

00713*051400  STA 

00714*002411  JMP 

00715*024004S  LEFT:  LDA 

00716*133400  AND 

00717*051400  STA 

00720*002405  JMP 

00721 '00601 5-  MARK:  JSR 

00722*006003-  JSR 

00723*000741  JMP 

00724*000015  CR:  IS 

00725*000000  WOSAV:  0 
00726*000000  TUP:  0 

00727*000020  MAXCS:  20 
00730*000000  TRAP:  0 

00731*177400  MSKL:  177400 

.END 


1 . MSKL 

2. 2. SEC  JUHICH  BYTE? 

2.2 

1.2 

0.2  1  NEK  BYTE 

2.2, SEC 

2.2  JSWAP  BACK 

2.0.3  ;PUT  BACK 

TRAP 

MARK 

2.  TUP 

2.3  JPUT  0  IN  LAST  BYTE 

2.0.3 

2. 2. SEC 
LEFT 
2.2 
2.0.3 
ewosAV 
1 . .MSKR 
1  .2 
2.0,3 
§wosav 

@.GETT 

0.PRN2 

MIKE 


JL.H.  MASK 


•  TI  TL 

LOADS 

.ENT 

.HEAVY 

•  EXTD 

. N'JM ,  .Ml  >  .GETT,  .D8IN,  .M! 

.EXTD 

. PRN?  ,  . PAGE 

•  EXTN 

CCNTR 

•  HREL 

00000*093000  * 

.HEAVY: 

LOADS 

•  NREL 

» 

t  ROUTINE  TO 

MULTIPLY  OR  DIVIDE  ALL  BL< 

l  WEIGHTS  C AREAS  >  BY  A  CONSTANT 

00000*054526 

» 

LOADS: 

STA 

3,RTRN  J  SAVE  ALL  AC’S 

00001 *040526 

STA 

0»cER 

00002  *  044526 

STA 

1  ,ONE 

00003*050526 

STA 

2, TWO 

00004*006007S 

JSR 

9 . PAGE 

00005*0060055 

JSR 

e .mess 

00006*0001 55* 

MS02 

00007*177324 

-300. 

00010*001 130 

600. 

i 

I 

CHECK 

FOR  MULT  /  DIV 

0001 1  *  006005S 

I 

JSR 

8. MESS 

00012*000172* 

MS04 

00013*0001 1 3 

75. 

00014*000702 

450. 

00015*0060035 

OVR : 

JSR 

8. GETT 

00016*040514 

STA 

0.DIG  t  STORE  M  OR  D 

00017*024514 

LDA 

1  ,  MM 

00020*10641 5 

SUB# 

0.1, SNR  J1S  IT  M  7 

00021 *000411 

JMP 

OUT 

00022*024512 

LDA 

1  ,  DO  l  IS  IT  D 

00023 ' 1 0641 5 

SUB# 

03  1  3  SNR 

00024  *  000406 

JMP 

OUT 

00025 '006005S 

JSR 

8. MESS 

00026*000227 • 

MS05 

00027*000310 

200. 

00030*000651 

425. 

00031 *000764 

JMP 

OVR 

00032’ 006006S 

OUT: 

JSR 

8.PRN2 

00033* 1 52400 

SUB 

2,2 

00034*050504 

STA 

2  ,  WHER 

00035*024476 

LDA 

1  »MM 

00036* 10641 5 

SUB# 

03 1 , SNR 

00037*000403 

JMP 

PA5T 

00040*1 52520 

SUBZL 

2,2 

00041 *050477 

STA 

2 ,WHER 

) 

i 

GET  CONSTANT 

00042 ’006005S 

i 

PAST: 

JSR 

e .MESS 

00043*000237  * 

MS06 

00044*000226 

1  50. 

00045  *  000567 

375. 

00046*006004$ 

JSR 

8.DBIN 

00047*044472 

STA 

1  , CNST  t STORE  CONSTANT 

} 

> 

HERE  1 

WE  GO  * 

F 

-  1 

‘ 

C-76  ! 

00050*0340025 

t 

LDA 

3*  .Ml 

J  GET  1ST  BLOCK  POINTER  j 

00051  *  054464 

STA 

3, BLK 

1  , 

00052 ’ 024031 5 

LDA 

1  > .NUM 

J  GET  NO.  OF  BLOCKS  j 

00053  *  044463 

STA 

1  .CNT 

I 

00054*031400 

0VR2: 

LDA 

2.0.3 

00055*050462 

STA 

2. TEMP 

J  SAVE  FOR  LATER 

00056  *021014 

LDA 

0.14,2 

i GET  AREA 

00057  *  1 01 035 

MOV 

0,0, SNR 

JSKIP  ERASED  BLOCK 

00060*000425 

JMP 

TRAP 

00061 *024457 

LDA 

1  »WHER 

00062* 125004 

MOV 

I.l.SHR 

J IF  NOT  0  DI VIDE 

00063*000412 

JMP 

DIVD 

00064* 1 1 1000 

MULT: 

MOV 

0,2 

00065*  1.02400 

SUB 

0,0 

00066*024453 

LDA 

1 , CNST 

00067  *  073301 

MUL 

00070  *  030447 

LDA 

2, TEMP 

0007 1 *045014 

STA 

1 ,14,2 

J  STORE  NEW  "AREA** 

00072* 125132 

M0V2L# 

1 >1 ,S2C 

1  TEST  FOR  >77777 

00073*000426 

JMP  FAIL 

00074*00041 1 

JMP 

TRAP 

00075* 105000 

D1  VD: 

MOV 

0,  1 

l AREA  IN  AC  1 

- 

00076* 102400 

SUB 

0  »  0 

I  CLEAR  HI  PART 

00077*030442 

LDA 

2, CNST 

00100* 1 32432 

SUB2A 

1,2, SHC 

1  DIV  TEST 

00101 *000420 

JMP 

FAIL 

00102*073101 

DIV 

* 

00103*030434 

LDA 

2, TEMP 

00104*045014 

STA 

1,14,2 

00105*010430 

TRAP: 

ISH 

BLK 

00106*034427 

LDA 

3, BLK 

00107*014427 

DSH 

CNT 

001 10*000744 

JMP 

0VR2 

1  DO  NEXT  BLOCK 

001 1 1 *020416 

LDA 

0.HER 

001 12*024416 

LDA 

I  .ONE 

001 13*030416 

LDA 

2, TWO 

001 14*0060055 

JSR 

P.MESS 

001 15*000252* 

MS09 

001 16*177160 

•  400  • 

001 17*000372 

250. 

00120*002422 

JMP 

SCON 

00121  *  006005S 

FAIL: 

JSR 

e.MESS 

r 

00122*000143* 

MS08 

00123*1 77470 

-200. 

001 24 ' 0003 1 0 

200. 

00125*002415 

JMP 

scon 

00126*000030 

RTRN: 

0 

00127*000000 

HER: 

0 

00130*000000 

ONE: 

0 

00131 *000000 

TWO: 

0 

00132*000000 

DIG: 

0 

00133*0001 1 5 

mm: 

*'M 

00134*000104 

DO: 

**D 

00135*000000 

BLK : 

0 

00136*000000 

CNT : 

0 

00 1 37  *  000000 

temp: 

0 

001 40*000000 

WHFR: 

0 

00141  *  0  0O000 

CNST : 

0 

001^2*177/77 

CON: 

CONTR 

fc— — 

_ J 

TXT 


♦  FA 


} 


00143' 040596 

MS08 : 

00 1 44 ' 046 1 1 1 

IL 

001 45  *  042 1 05 

ED 

001 46'051 454 

»S 

00147*  040524 

TA 

001 50*052122 

RT 

00151 *040440 

A 

001 52*020124 

T 

00153*026520 

P- 

00154*000061 

1* 

00155*046102 

MS02S 

00156*041517 

oc 

001 57*0201 13 

K 

00160*042527 

WE 

00161 *04351 1 

IG 

00162*0521 10 

HT 

00163*046440 

M 

00164*0421 17 

OD 

00165*0431 1 1 

IF 

00166*041511 

1C 

00167*052101 

AT 

00170*04751  1 

10 

00171 *0001 16 

N* 

00172*047504 

MS04J 

00173*054440 

Y 

00174*052517 

0  U 

00175*053440 

w 

00176*051 51 1 

IS 

00177*0201 10 

H 

00200*047524 

TO 

00201 *046440 

M 

00202*046125 

UL 

00203*044524 

T I 

00204*046120 

PL 

00205*020131 

Y 

00206*046450 

<M 

00207 '020051 

) 

00210*051 1 1 7 

OR 

0021 1 *042040 

D 

00212*0531 1 1 

IV 

00213*0421 1 l 

ID 

00214*020105 

E 

00215*042050 

<  D 

00216*020051 

) 

00217*044124 

TH 

00220*020105 

E 

00221 *042527 

WE 

00222*04351 1 

IG 

00223*0521 10 

HT 

00224*020123 

S 

00225*020077 

00226 ' 000000 

♦ 

00227*052515 

MS05 

00230*052123 

ST 

00231 *041040 

B 

00232*020105 

E 

00233*0201 1 5 

M 

00234*051 l 1 7 

OR 

00235*042040 

D 

•  TXT 


.TXT 


.TXT 


♦  BL 


♦  DO 


♦  MU 


% 


00236 *000040 

+ 

00237  *044127 

m  sy  6  •- 

00240*052101 

AT 

00241  *  044440 

I 

00242 '020 123 

S 

00243*044124 

TH 

00244*020105 

E 

00245*040506 

F  A 

00246*052103 

CT 

00247  *051117 

OR 

00250*037440 

7 

00251 *000040 

* 

00252*047503 

M  S  0  9  ! 

00253*0501 1 5 

MP 

00254*04251 4 

LE 

00255*042524 

TE 

00256*026104 

D  . 

00257*053440 

W 

00260*044501 

A I 

00261 *044524 

T I 

00262*04351 6 

NG 

00263*040040 

e 

00264*041440 

c 

00265*0471 1 7 

ON 

00266*051 124 

TR 

00267  *000000 

* 

.TXT 


•  TXT 


*WH 


*C0 
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.END 
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J FORCE- 

. T I TL  FORD 

DISPLACEMENT  LAW  FOR  ALL 

00000-000000 

JCONTACT  POINTS 
.  EXTD 
.  EXTD 

•  EXTD 

•  EXTD 

•  EXTD 

•  EXTN 

•  ENT 

•  2REL 

MUS  000000 

.Ml , .M5, • NUM  » . EMPT , • MSKR 
.  VEC, . SCAL, • PLTS, . SPRP, .PRES 
•MESS. . GETT , . IPRN 
.ROT, .UREP, .TREC 
•NVEC, .PAGE, .ALPH, .HEAVY 

CONTR 

.FORD, .TIME, MU 

JFRICTION  COEF.  (DEFAULT  VALUE 

00001-000033* 

•FORD: 

FORD 

00002-00000! 

.  KDN : 

l 

J NORMAL  DAMPING  FACTOR 

00003-000001 

.  KDS : 

1 

fSH EAR  DAMPING  FACTOR 

00004-000000 

XCP: 

0 

00005-000000 

YCP: 

0 

00006-000000 

DELS: 

0 

00007-000000 

DELN : 

0 

0001 0-000000 

FN: 

0 

0001 1 -000000 

FDSAV : 

0 

00012-000000 

LOCPR : 

0 

00013-000000 

L0C9L: 

0 

00014-000000 

LOCBP : 

0 

0001 5-000000 

OLINK: 

0 

00016-000000 

COUNT: 

0 

00017-000000 

PRLNK: 

0 

00020-000000 

cos: 

0 

00021-000000 

SIN: 

0 

00022-000000 

COSF : 

0 

00023-000000 

SINF: 

0 

00024-000672* 

.TIME: 

DYNFAC 

00000* 1 02440 

muls: 

•  NREL 
SUBO 

0,0 

00001 *050420 

STA 

2,  SV2 

00002*027400 

LDA 

@1,0,3  JA 

00003*033401 

LOA 

@2,1,3  JB 

00004*1251 12 

MOVL# 

1 , 1 ,S2C 

00005* 124460 

NEGC 

1  ,  1 

00006* 151112 

MOVL# 

2 , 2  ,  SEC 

00007  *  1 50460 

NEGC 

2,2 

00010*073301 
0001 1  *  030005S 

MUL 

LDA 

2,  .MSKR 

00012  *  1 43700 

ANDS 

2,0  JTAKE  MIDDLE  8  BITS 

00013*125300 

MOVS 

1  ,  1 

00014*147400 

AND 

2,1 

00015*107002 

ADD 

0,  1 ,S2C 

00016* 124400 

NEG 

1,1 

00017*030402 

LDA 

2 , 5  V2 

00020*001402 

JMP 

2,3  J A*8  IN  AC1 

00021 *000000 

SV2 : 

0 

00022*000000 

9 

XDL: 

0 

00023*000000 

YDL: 

0 

00024*000000 

XDP : 

0 

00025*000000 

YDP : 

0 

00026*000000 

DAP: 

0 

00027*000000 

DAL: 

0 

00030*000000 

DXL: 

0 

00031 *000000 

DYL: 

0 

.  0) 


00032 ' 0003 1 0  ' 

J 

NEXTR: 

NEXTB 

C-80 

00033*05401  t- 

FORD: 

ST  A 

3.FDSAV 

00034*034002$ 

LDA 

3>  .M5 

3  INITIAL  PROD  POINTER 

00035*054012- 

STA 

3*  LOCPR 

00036*  05401 S- 

STA 

3.0L1NK 

00037  *020803$ 

LDA 

0.  . NUM 

00040*04001 6- 

STA 

0*COUNT 

00041 *034901 S 

LDA 

3*  -Ml 

3  INITIAL  BLOCK  DAT.  PNTR 

00042*054013- 

STA 

3. L0C3L 

00043*036012- 

LOOP: 

LDA 

3>  PLOCPR  3  1ST  WORD 

00044* 175112 

ENTRY : 

MOVL# 

3 . 3  »  S ?C 

JUST  TAIL  FLAG? 

00045*002765 

JMP 

gNEXTR 

3  YES.  NEXT  BLOCK 

00046*054917- 

STA 

3.PRLNK 

00047  *  021400 

LDA 

0>  0#  3 

.•CONTROL  WORD 

00050*040023- 

STA 

0. SINf 

3  SIN  FLAG  IN  BIT  0 

00051  *  101  100 

MO  VL 

0.0 

00052*040022- 

STA 

0.COSF 

3C0S  FLAG  IN  BIT  0 

00053*021410 

LDA 

0.10*3 

3  S IN 

00054*040021- 

STA 

0.SIN 

00055*02141 1 

LDA 

0.11.3 

ICOS 

00056*040020- 

STA 

0.COS 

00057*021412 

LDA 

0.12.3 

00060*040904- 

STA 

0.XCP 

3 X  CONTACT  POINT 

00061 *021413 

LDA 

0.13.3 

00062  *040905- 

STA 

0.YCP 

3Y  CONTACT  POINT 

3  TO  GET 

CONTRIBUTIONS  FROM  EDGE 

00063*032013- 

LDA 

2. @LOCBL 

00064*021001 

LDA 

0.1.2 

3 XG.  THIS  BLOCK 

00065*024004- 

LDA 

l.XCP 

00066*  t  06400 

SUB 

0.  1 

00067*044733 

STA 

I.  XDL 

00070*021003 

LDA 

0.3.2 

3  YG.  THIS  BLOCK 

00071 *024005- 

LDA 

l.YCP 

00072’ 1 06400 

SUB 

0.  1 

00073*044730 

STA 

1.  YDL 

00074*021022 

LDA 

0.22.2 

00075*040732 

STA 

0  .  DAL 

00076*004702 

JSR 

MULS 

00077*000027  * 

DAL 

00100*000023* 

YDL 

00101 *021020 

LDA 

0.20.2 

3DELTA-X.  THIS  BLOCK 

00102* 122400 

SUB 

1.0 

3 SUBTRACT  ROT.  CONTRI B • 

00103*040725 

STA 

0.DXL 

00 l 04 ’ 004674 

JSR 

MULS 

00105*000027* 

DAL 

001 06 ' 000022 ’ 

XDL 

00107*021021 

LDA 

0.21.2 

3DELTA-Y 

001 10* 123000 

ADD 

1.0 

001 1 1 *040720 

STA 

0.DYL 

001 12*034017- 

) 

LDA 

3.PRLNK 

001 13*021401 

LDA 

0.1.3 

J  (NP:NB> 

001 14*024005$ 

LDA 

1  .  •  MSKR 

00115*1 07400 

AND 

0. 1 

3BL0CK  #  OF  POINT 

001 ! 6*030001 S 

LDA 

2.  .Ml 

00117*1 33000 

ADD 

1.2 

00120*05001 4- 

STA 

2.L0CBP 

J  DATA  POINTER  (POINT) 

00121 *031000 

LDA 

2.0.2 

00122*021001 

LDA 

0.1.2 

3  XG.  OTHER  BLOCK 

C-81 


00123*024004- 

LDA 

1  ,XCP 

00124* 106400 

SUB 

0,  1 

00125*044677 

STA 

1  ,  XDP 

00126*021003 

LDA 

0,  3,2 

JYG,  OTHER  BLOCK 

00127*024005- 

LDA 

1  ,  YCP 

00130* 106400 

SUB 

0,  1 

00131 *044674 

STA 

1  ,  YDP 

00132*021022 

LDA 

0,22,2 

00133*040673 

STA 

0  ,  D  AP 

)  DELTA-ALPHA 

00134*004644 

JSR 

MULS 

00135*000026* 

DAP 

001 36 '03002  5  * 

YDP 

00137  *021020 

LDA 

0,20,2 

t DELTA-X,  NBCP) 

00140* 122400 

SUB 

1,0 

00141 *024667 

LDA 

1  ,DXL 

00142*122400 

SUB 

1,0 

} DXP- DXL 

001 43*040570 

STA 

0, DELX 

00144*004634 

JSR 

MULS 

00145*000026* 

DAP 

00146*000024* 

XDP 

00147*021021 

LDA 

0,21,2 

}  DYP 

00150* 123000 

ADD 

1 ,0 

00151 *024660 

LDA 

1  ,  DYL 

00152*122400 

SUB 

1,0 

JDYP-DYL 

001 53*040561 

STA 

0, DELY 

00154*004562 

JSR 

TRANS 

1  TRANSFORMAT  ION  ROUTINE 

001 55*033017- 

LDA 

2,PRLNK 

00156*021005 

LDA 

0,5,2 

}  OLD  N  (NORM.  DISP.) 

00157*163000 

ADD 

3,0 

00160*041005 

STA 

0,5,2 

JNEI#  N 

001 61 ' 1 65000 

MOV 

3,  1 

00162*030553 

LDA 

2,KN 

{ NORMAL  STIFFNESS 

00163*102400 

SUB 

0,0 

00164* 125112 

MOVL# 

1 , 1  ,SEC 

00165* 124400 

NEG 

1  ,  1 

00166*073301 

MUL 

00167*175113 

MOVL# 

3,3, SNC 

00170* 124400 

NEG 

1  ,  1 

> INVERT  ORIG.  SIGN 

00171 *030017- 

LDA 

2 , PRLNK 

i  FOR  +VE  FN 

00172*021006 

LDA 

0,6,2 

;OLD  NORMAL  FORCE,  FN 

00173*1251 12 

MOVL# 

1  , 1  ,SEC 

00174' 000405 

JMP 

OK 

00175*107030 

ADD 

0,1 

00176*125112 

MOVL# 

1  ,  1  ,  SEC 

00177*006506 

JSR 

@LM  1 

00200*000404 

JMP 

STOR 

00201 ' 1 07000 

OK: 

ADD 

0,1 

;ADD  IN  INCREMENT 

00202* 125112 

MOVL# 

1 , 1 , SEC 

J  EERO  ADHESION  ASSUMED 

00203*000520 

JMP 

DELET 

J  SET  FORCES  TO  EERO 

00204*045006 

STOR: 

STA 

1,6,2 

; NEW  NORMAL  FORCE 

00205*044010- 

STA 

1  »FN 

00206*165000 

MOV 

3,  1 

00207  *030002- 

LDA 

2, • KDN 

l DAM  PING  FACTOR 

00210* 1 02400 

SUB 

0,0 

0021 1*125112 

MOVL# 

1 , 1 , SEC 

00212* 124400 

NEG 

1  ,  l 

00213*073301 

MUL 

00214* 175113 

MOVL# 

3, 3, SNC 

00215*124400 

NEG 

1  ,  1 

00216  *  020010- 

LDA 

0,FN' 

A 


■"  '  " 

1 

002 1 7 ' 122000 

ADD 

,.o  C-82  §1 

00220 1 125! ! 2 

MOVL  * 

1 , 1 , SEC  9  9 

00221*000403 

JMP 

NC  9  9 

00222* 101112 

MOVL# 

e>p>s£c  9  9 

0R223  *  006463 

JSR 

OL'iU  «  9 

00224*0405! 0 

NC: 

STA 

0/ DELY  1  1 

00225*03001 7- 

LDA 

2  »  F  R  L  N  K  11  j8 

00226*006531 

JSR 

@SHR  J  GET  SHEAR  FORCE  I  *9 

00227*040504 

STA 

0  *  f )  F  L  X  f  jfi 

00230*004506 

JSR 

TRANS  2  9 

1  ADD 

GLOBAL  FORCES  ARISING  FROM  j  ■ 

JTHIS  CONTACT. 

m 

00231 *006453 

JSR 

SMOMT  /MOMENT/  THIS  BLOCK  1 

00232*000307- 

DELN 

9 

00233  *  030036- 

DELS 

9 

00234*000022* 

XDL 

9 

00235*000023* 

YDL 

1 

00236*032013- 

LDA 

2/6L0C8L  JTHIS  BLOCK  1 

00237*021017 

LDA 

0/17/2  9 

00240* 122400 

SU8 

1/0  | 

00241 *041017 

STA 

0/17/2  /NE’w  MSUM  \ 

00242*021007 

LDA 

0/7,2  JOLD  FXSUM 

00243*024006- 

LDA 

1/DELS  j 

00244* 123000 

ADD 

1/0 

00245*041007 

STA 

0/7/2  JNEH  FXSUM 

00246*021016 

LDA 

0/16/2  J  OLD  F Y  SUM  i 

00247*024007- 

LDA 

1 /DELN  : 

00250*122400 

SUB 

1/0 

00251 *041016 

STA 

0/16/2  JNEL  FYSUM  1 

00252*006432 

JSR 

«MOMT  1 

00253*000007- 

DELN 

1 

00254*000006- 

DELS 

1 

00255 '000024  * 

XDP 

l 

00256*000025* 

YDP 

I 

f  00257*032014- 

LDA 

2/6L0CBP  J OTHER  BLOCK  1 

00260*021017 

LDA 

0/17/2  JOLD  MSUM  ! 

S  00261*123000 

ADD 

1  /0 

j  00262*041017 

STA 

0/17/2  JNEW  MSUM 

t  00263*021007 

LDA 

0/7,2  JAS  ABOVE,  BUT  : 

00264*024006- 

LDA 

I/DELS  J  WITH  OPPOSITE  SIGNS 

00265*122400 

SUB 

I  ,0 

|  00266*041007 

STA 

0/7,2 

00267*021016 

LDA 

0/16/2 

00270*024007- 

LDA 

1  /DELN 

00271*123000 

ADD 

I  ,0 

t  00272*041016 

STA 

0/16/2 

!  00273* 020006S 

LDA 

0/.VEC  J  PLOT  VECTORS  IF  FLAG  SET 

S  00274*101004 

MOV 

0,0, SER 

l  00275*006412 

JSR 

gVDISP 

!  00276*034017- 

CHAIN 

:  LDA 

3/PRLNK 

00277*171430 

INC 

3/2 

00300 '151400 

INC 

2/2  JGET  LINK  ADDRESS 

00301 *050015- 

STA 

2/OLINK  JREVERSE  LINK 

00302*035402 

LDA 

3*2*3 

00303*002425 

JMP 

0ENTR  JCET  NEXT  ENTRY 

00304*000432* 

M  OMT: 

MOM 

00305*001 143* 

LM 1  : 

LIM1 

00306*001 1 50* 

S 

LM0 : 

LIM0 

Ik.  .  .  .. 

_ =m-- 

C -83 


00307 • 09PS03 ' 

VDISP: 

VDIS 

{NEXT 

BLOCK 

00310*010012- 

NEXTB: 

ISZ 

0031 1 *034012- 

LDA 

00312*05401 5- 

STA 

00313  *010013- 

ISZ 

00314*01401 6- 

DSZ 

0031 5*03241 4 

JMP 

003 1 6  *  0330 1 2S 

LDA 

00317*  151112 

MOVL# 

00323  *  00231 1  - 

JMP 

00321 *002401 

JMP 

00322*000637  * 

PRS : 

PRESU 

00323  *  1 02400 

DELET : 

SUB 

03324  *  041 036 

STA 

00325*041097 

STA 

00326*003750 

JMP 

00327  *000553* 

SHR: 

SHEAR 

00330*000044* 

ENTR : 

ENTRY 

00331 *000043’ 

LOOPR: 

LOOP 

00332*000000 

SAVE: 

0 

00333  *  000030 

DELX: 

0 

00334*000000 

DELY: 

0 

00335*000003 

KN: 

3 

00336 '054774 

TRANS: 

STA 

00337*024774 

LDA 

00340*033020- 

LDA 

00341 • 1 02440 

SUBO 

00342* 125112 

MOVL# 

00343* 124449 

NEGO 

00344*073301 

MUL 

00345* 125112 

MOVL# 

00346’ 101400 

INC 

00347’ 101002 

MOV 

00350 ’ 1 00400 

NEG 

00351 *024022- 

LDA 

00352* 125102 

MOVL 

00353*100400 

NEG 

00354*1 1 5000 

MOV 

00355*024757 

LDA 

00356*033021- 

LDA 

00357 • 1 O2440 

SUBO 

00360*1 25112 

MOVL# 

00361  *  1 24440 

NEGO 

00362*073301 

MUL 

00363’ 1251 12 

MOVL# 

00364  *  1 01400 

INC 

00365 ’ 101002 

MOV 

00366* 100400 

NEG 

00367*024023- 

LDA 

00370* 125102 

MOVL 

0037 I  *  1 00400 

NEG 

00372* 1 1 7000 

ADD 

00373*054006- 

STA 

00374  *  024740 

LDA 

00375*030020- 

LDA 

00376* 1 02440 

SUBO 

00377  *  1 2511 2 

MOVL# 

00400* 124440 

NEGO 

00401 *073301 

MUL 

LGCPR  ilNCR.  PROD  LOCATOR 

3 . LOCPR 

3.0LINK 

L0C3L  J INCR.  DATA  LOCATOR 

COUNT  {EXIT  IF  ALL  BLOCKS 

PLOOPR  {  SCANNED 
2, .PRES 
2  »  2.SZC 

PFDSAV  { NO  PRESS.  SEGMENTS 
PPRS  S GET  FORCES  FROM  PR. 

0.0 

0.6.2 

0.7.2 

CHAIN 


3.SAVE 
1  .DELX 

2.  COS 

0.0  i CLEAR  CARRY 

1 . 1  .SZC 

1  .  I  5  SET  CARRY 

{ DELX*COS 

l.I.SZC  {ROUND  UP  IF  NEC. 

0.0 

0.0. SZC 

0.0  {RESTORE  SIGN 

I .COSF 
1 . I .SZC 
0.0 

0.3  {PARTIAL  SUM  IN  AC3 

I .DELY 
2. SIN 
0.0 

1 . I .SZC 

1.1 

{ DELY*SIN 

l.I.SZC  {ROUND  UP  IF  NEC. 

0.0 

0.0. SZC 
0.0 
1 .SINF 
l.I.SZC 
0.0 

0.3  !DELX*COS+DELY*SIN 

3.  DELS 

1 . DELY 

2.  COS 

0.0 

l.I.SZC 

1.1 

;dely*cos 


SEC-S. 


C-84 


00402  *  125112 

MOVL# 

1,1, SEC  1  ROUND  UP  IF  NEC. 

00403* 101400 

INC 

0*0 

00404* 101002 

MOV 

0*0* SEC 

00405* 100409 

NEG 

0*0 

00406*024022- 

LDA 

1 ,COSF 

00407* 125102 

MOVL 

1*1*  SEC 

00410* 100400 

NEG 

0*0 

0041 1*11 5000 

MOV 

0*3  J  PART  I AL  SUM  IN  AC3 

00412*024721 

LDA 

1 *DELX 

00413*030021- 

LDA 

2*  S  IN 

00414* 1 02440 

SUBO 

0*0 

00415*125112 

MOVL# 

1  *  1  *  SEC 

00416* 124440 

NEGO 

1*1 

00417*073301 

MUL 

1 DELX  +  S I N 

00420* 125112 

MOVL# 

1  *  1  *  SEC  i ROUND  UP  IF  NEC. 

00421  *  101400 

INC 

0*0 

00422* 101002 

MOV 

0*  0*  SEC 

00423* 100400 

NEG 

0*0 

00424*024023- 

LDA 

1 *SINF 

00425*125102 

MOVL 

1  *  1  *  SEC 

00426  *  1  00400 

NEG 

0*0 

00427  *  1  1 6400 

SUB 

0*3  JDELY*COS-DELX*SIN 

00430*054007- 

STA 

3* DELN 

00431 *002701 

JMP 

6SAVE 

JCOMPUTES  A*XD  I F+8*YD I F  »  AND  TRUNCATES 

JTO 

MIDDLE  16 

BITS  OF  32  BIT  NUMBER 

J 

OUTPUT:  AC  1 

00432*054444 

MOM 

:  STA 

3  *  T  EM  P 

00433*027400 

LDA 

@1*0,3  JA 

00434*033402 

LDA 

@2*2*3  JXDIF 

00435* 1 76400 

SUB 

3*3 

00436* 125112 

MOVL# 

1*1*SSC 

00437*157000 

ADD 

2*3 

00440*151 1 12 

MOVL# 

2*  2*  SEC 

00441  *  1 37000 

ADD 

1*3 

00442* 1 02400 

SUB 

0*0 

00443*073301 

MUL 

00444*1 62400 

SUB 

3*0 

00445*040432 

STA 

0*HI  1 A*XD IF  IN  AC0: AC1 

00446*044432 

STA 

1  *LO 

00447*034427 

LDA 

3*TEMP 

00450*027401 

LDA 

@1*1*3  JB 

00451 *033403 

LDA 

@2*3,3  ;ydif 

00452*1 76400 

SU3 

3*3 

00453* 1251  12 

MOVL# 

1  *  1 »  SEC 

00454* 1 57000 

ADD 

2*3 

00455* 151112 

MOVL# 

2*2, SEC 

00456* 1 37000 

ADD 

1*3 

00457  *  1 02400 

SUB 

0*0 

00460*073301 

MUL 

00461  *  1 62400 

SUB 

3*0  ;B*YDIF  in  AC0 : AC  1 

00462*03041 5 

LDA 

2*HI 

00463*03441 5 

LDA 

.  3*L0 

00464* 1 67022 

ADDS 

3* I *SEC  JADD  2  D.P.  NUMBERS 

00465* 1 51400 

INC 

2*2 

00466* 143030 

ADD 

2*0  JD.P.  ANSWER  IN  AC0 : AC  1 

00467*0300355 

LDA 

2*.MSKR  ! NOW  TAKE  ONLY  MIDDLE 

00470* 1 43700 

ANDS 

2*0  i  8  BITS 

00471  *  t25300 

MOVS 

1*1 

00472* 147400 

AND 

2*  1 

C-85 


00473  *  1 07000 

ADD 

0,  1 

J  RESULT  IN  AC  1 

0047  4 ' 034402 

LDA 

3, TEMP 

00475*001404 

JMP 

4,3 

t RETURN  TO  CALL  +5 

00476*000000 

TEMP: 

0 

00477*000000 

HI  : 

0 

00500  *  000000 

LO: 

0 

00501 *000000 

XNUM : 

0 

00502*000000 

YNUM : 

0 

00503*054446 

VDIS: 

STA 

3, VEC3 

} VECTOR  PLOTTING  ROUT 

00504*020004- 

LDA 

0,XCP 

;X  CONTACT  POINT 

00505 '024005- 

LDA 

1  ,  YCP 

.  Y 

00506*0060105 

JSR 

P.PLTS 

J 1  ST  END  (BEAM  OFF) 

00507*000000 

0 

00510*024006- 

LDA 

1  ,DELS 

0051 1 *044770 

STA 

1  ,  XNUM 

00512*006007$ 

JSR 

e.SCAL 

J SCALE  FORCE  FOR  PLOT 

00513*020004- 

LDA 

0,XCP 

00514* 123000 

ADD 

1 ,0 

0051 5*040435 

STA 

0.XVEC 

JX  VECTOR 

00516*024007- 

LDA 

1  ,DELN 

00517*044763 

STA 

1 »  YNUM 

00520*006007$ 

JSR 

e.SCAL 

00521 *020005- 

LDA 

0,  YCP 

00522* 122400 

SUB 

1,0 

00523* 105000 

MOV 

0,  1 

JY  VECTOR 

00524*020426 

LDA 

0>XVEC 

00525*006010$ 

JSR 

e.PLTS 

i PLOT  VECTOR 

00526*000001 

I 

;beam  on 

00527 '0O6023S 

JSR 

e.ALPH 

00530*0300215 

LDA 

2,  .NVEC 

;T0  PRINT  VALUES 

00531  *  1  51005 

MOV 

2,2, SNR 

J0=DONT  PRINT 

00532*002417 

JMP 

6  VEC3 

00533*020746 

LDA 

0,XNUM 

00534*00601 5S 

JSR 

e.iPRN 

J  PRINT  X 

00535*000005 

5 

00536*020744 

LDA 

0, YNUM 

00537*00601 5$ 

JSR 

e.IPRN 

) PRINT  Y 

00540*000005 

5 

00541 *030021 S 

LDA 

2,  .NVEC 

J  IF>1 ,HALT  FOR  CHECK 

00542*151224 

MOVER 

2,2, ScR 

00543*004402 

JSR 

WAIT 

7  WAIT  FOR  ANY  KEY 

00544*002405 

JMP 

eVEC3 

00545*063610 

WAIT: 

SKPDN 

TTI 

00546*000777 

JMP 

.-1 

00547*060210 

NIOC 

TTI 

00550*001400 

JMP 

0,3 

00551  *  000000 

VEC3 : 

0 

00552*000000 

XVEC: 

0 

i 

i THE  FOLLOWING  ROUTINE  COMPUTES  SHEAR  FORCE 
i FROM  SHEAR  DISP.  AND  NORMAL  FORCE. 

JIT  ALSO  ADDS  IN  DAMPING  TERM,  IF  CONTACT  IS 
INOT  SLIDING. 


00553*050455  SHEAR: 

STA 

2 ,  SVS2 

00554*025000 

LDA 

1,0,2 

00555*020455 

LDA 

0, FRMSK 

JTYPE  H  MASK 

00556  *  1 077O4 

ANDS 

0, 1 ,ScR 

JIF  EERO,  USE  DEFAULT 

00557  *000454 

JMP 

GETFR 

00560  *030000- 

LDA 

2, MU 

l  FRICT I  ON  COEF  (<1  ) 

C-86 


00561  ’  OP-3010- 

SLIP: 

LDA 

1  >  FN 

00562  *  1 02403 

SU3 

0.0 

0C563  *073301 

MUL 

} FN  *MU  IN  AC0 

0056-3*040443 

STA 

0. FSMAX 

l MAX  POSS  SHEAR  FORCE 

00565  *  030444 

LDA 

2.KS 

JSHEAR  STIFFNESS 

00566*024006- 

LDA 

1  .DELS 

;  INCR.  SHEAR  DISP. 

00567  *  1  OP 440 

SUBO 

0.0 

J  CLEAR  CARRY 

00570* 1251  IP 

MOVL# 

1  .  1 . SEC 

00571  ’  1  P  4  40 

NEGO 

1.1 

;SET  CARRY  IF  DELS  -VE 

00572*073301 

MUL 

} DELS*KS  C  =  DELTAC  FS  ]  > 

00573* 125002 

MOV 

1  .  !  .SEC 

00574  *  1 24400 

NEG 

1  .  1 

; RETURN  SIGN 

00575*030433 

LDA 

2.SVS2 

0057 6  *  02 1 007 

LDA 

0.7.2 

l FS  COLD ) 

00577  *  1 07000 

ADD 

0.  1 

t  RA  tv  FS 

00600*044426 

STA 

l.FS 

J 

J  THE 

FOLLOWING 

LINE  WAS  IN  ERROR  IN  PAC’S 

00601 *045007 

J 

STA 

1.7.2 

; 7/30/76  ERROR  FOUND 

00602* 121102 

MOVL 

1 . 0. SEC 

00603’ 1 24400 

NEG 

1  .  1 

00604*020423 

LDA 

0. FSMAX 

00605* 122513 

SUBL# 

1 .0.SNC 

1  EXCEEDED  MAX? 

00606*000405 

JMP 

DAMP 

j NO «  ADD  IN  DAMPING 

006O7  *  125002 

MOV 

1.1. SEC 

; SIGN? 

00610* 100400 

NEG 

0.0 

0061 1 *041007 

STA 

0.7.2 

1  NEW  FS  IN  AC0 

00612*001400 

JMP 

0.3 

i  EXIT 

00613*024006- 

DAMP : 

LDA 

1  .DELS 

00614*030003- 

LDA 

2.  .KDS 

t DAMPING  FACTOR 

00615*102440 

SUBO 

0.0 

00616*125112 

MOVL# 

1.1. SEC 

00617*124440 

NEGO 

1.1 

00620*073301 

MUL 

00621 ' 125002 

MOV 

1.1. SEC 

00622  *  1 24400 

NEG 

1  .  1 

00623*020403 

LDA 

0.FS 

00624* 1 23000 

ADD 

1.0 

I  ADD  IN  DAMPING  FORCE 

00625'0O1400 

JMP 

0.3 

>  EXIT  (OUTPUT:  ACO) 

P0626  *  000000 

FS: 

0 

00627  *000000 

FSMAX: 

0 

00630*000000 

SVS2: 

0 

00631  *  000003 

KS: 

3 

ISHEAR  STIFFNESS 

00632*017400 

FRMSK : 

1  7400 

;MASK  FOR  TYPE  #  PART  OF  CONT.  WORD 

£0633*03001  IS 

GETFR: 

LDA 

2.  •  SPRP 

00634* 1 33000 

ADD 

1.2 

00635*031000 

LDA 

2.0.2 

J  GET  APPROPRIATE  FRICTION 

00636*000723 

JMP 

SLIP 

i 

1T0  ADD  IN  PRESSURE  FORCES  FROM  LINKED 
J  LI  ST  OF  PRESSURE  SEGMENTS. 

J 


00637*021000  PRESU: 

LDA 

0.0.2 

00640*0240055 

LDA 

1  .  .MSKR 

00641  '  123400 

AND 

1.0 

t  NB 

00642*0340015 

LDA 

3. .Ml 

00643* 1 17000 

ADD 

0.3 

00644*035400 

1 - 

LDA 

3.0.3 

;BLOCK  POINTER 

C-87 


0064S*021O03 

LDA 

00646 ' 0254 1 7 

LDA 

00647 • 1 07000 

ADD 

006S0  *  04S4 1 7 

STA 

00651 *001 004 

LDA 

006 55? '  005407 

LDA 

00653* 1 07000 

ADD 

00654*045407 

STA 

00655*021005 

LDA 

00656*025416 

LDA 

00657  *  1 07000 

ADD 

00660*045416 

STA 

00661 *031002 

LDA 

00662*151 115 

MOVL* 

00663*000754 

JMP 

00664*00201 1- 

• - 

JMP 

I  ROUTINE  TO 

J 


00665*000040 

DTREC: 

40 

00666*000001 

DKDN : 

1 

00667*000012 

DKDS: 

12 

00670*000140 

DROT: 

l  40 

00671 *000023 

DUREP: 

• 

23 

0067 2* 006022 S 

> 

DYNFACS 

JSR 

00673*0O6023S 

JSR 

00674*0060133 

JSR 

00675*001212* 

DMS0 

00676*177470 

-200. 

00677*001320 

720. 

00700*006013S 

JSR 

00701 *001234* 

DM51 

00702*177665 

-75. 

00703*001236 

670. 

00704*006013$ 

JSR 

00705*001244* 

DMS2 

00706*000175 

125. 

00707*001200 

640. 

00710*0200205 

LDA 

0071 1 *00601 5S 

JSR 

00712*000004 

4 

00713*006013$ 

JSR 

00714*001250* 

DMS3 

00715*000175 

125. 

00716*001 130 

600. 

00717*320002- 

LDA 

00720*00601 5S 

JSR 

00721 *000004 

4 

00722*00601 3S 

JSR 

00723*001254* 

DMS4 

00724*000175 

125. 

00725*001060 

560  . 

00726*020003- 

LDA 

00727  *  00601 5S 

JSR 

00730*000004 

4 

00731  *  00601 3S 

JSR 

0,3,2 

1M  INCREMENT 

1/17,3 

I  OLD 

M  SUM 

0/1 

1/17/3 

J  NEW 

MSUM 

0/4/2 

S  FX 

INCREMENT 

1/7,3 

J  OLD 

FXSUM 

0/1 

1/7/3 

1  NEW 

FXSUM 

0/  5/2 

;fy 

INCREMENT 

1/16/3 

/OLD 

FYSL'M 

0/  1 

1,16/3 

;new 

FYSUM 

2.2/2 

;link 

2/2/SNR 

PRESU 

eFDSAV 

i  END 

OF  CHAIN 

CHANGE  TREC,  ETC. 


g.PAGE 

e.ALPH 

e.MESS 


e.MESS 


e.MESS 


0/.TREC  1TIME  STEP 
e.lPRN 

e.MESS 


0,.KDN  J NORMAL  DAMPING  FAC 
e.IPRN 

e.MESS 


0, <KDS  JSHEAR  DAMPING  FAC 
# . 1 PRN 

e.MESS 


C-88 


007 32' 00 1260' 

DMSS 

00733*000175 

125. 

00734*001010 

523. 

00735*02001 6S 

LDA 

0>  .ROT 

;ROT.  TIME  FAC 

00736*00601 5S 

JSR 

@  .  1PRN 

00737  *  000005 

5 

00740*0060135 

JSR 

e.MESS 

00741 *031264* 

DMS6 

00742*003175 

125. 

00743*000743 

483. 

00744* 02O017S 

LDA 

0, .UREP 

i UPDATE  COUNTER 

00745*00601 5S 

JSR 

e. IPRN 

00746  *  000034 

• 

A 

J 

0O747*006013S 

JSR 

§  .MESS 

00750*001270* 

DMS7 

00751  *  1 77473 

-200. 

00752*000536 

350. 

00753*00691 3S 

JSR 

e.MESS 

00754*001306* 

DMS8 

00755*000454 

300. 

00756'0O9454 

300. 

00757*0060135 

JSR 

e.MESS 

00760*001325  * 

DMS9 

00761 *000454 

300. 

00762*000404 

260. 

00763*00601 35 

JSR 

e.MESS 

00764*001367* 

DM10 

00765*000454 

300. 

00766*000334 

220. 

00767*0060135 

JSR 

e.MESS 

00770*001344* 

DMS10 

00771 *000454 

300. 

00772*000264 

• 

180. 

9 

I  GET  CONTROL  KEY 


00773*006014$ 

I 

JSR 

e.GETT 

0077  4 ' 02441 4 

LDA 

1 ,1*CHR 

;is  IT  A  W 

00775* 1 06415 

SUB# 

0#  l  ,SNR 

00776 'O06024S 

JSR 

e. HEAVY 

t  YES 

00777  *  024407 

LDA 

I  *  ICHR 

i IS  IT  AN  I? 

01000* 1 0641 5 

SUB# 

0, 1 ,SNR 

01001 *000410 

JMP 

UP 

J  YES 

01002*024405 

LDA 

1  ,DCHR 

7  IS  IT  A  D  ? 

01003* 1 0641 5 

SUB# 

0,  1 , SNR 

01004*000434 

JMP 

DWN 

7  YES 

01005*002535 

JMP 

ecoN 

JNONE-GO  TO  CONTR 

01006*0001 1 1 

I  CHR: 

**I 

01097*000104 

DCHR : 

”D 

01010*000127 

WCHR: 

•*W 

01011 *020002- 

UP: 

LDA 

0>  . KDN 

01012*024654 

LDA 

1 , DKDN 

01013’ 106432 

SUBE  # 

0,1 , SEC 

{ I EKDN=DKDN  ALREADY  AT  MAX 

01014*000521 

JMP 

MAX 

01015’ 122400 

SUB 

1,0 

01016*049002- 

STA 

0, .KDN 

01017  *  029020S 

LDA 

0, .TREC 

01029*024645 

LDA 

1 , DTREC 

01021 *1 22400 

SUB 

1 ,0 

C- 90 


01 1 14*03601 5S 

JSR 

01 1 15*000034 

4 

01 1 16*03601 3S 

JSR 

01  1  17*031260* 

DM  55 

01 120*001 1 61 

625. 

01 121 *001010 

520. 

01 122*02031 6$ 

LDA 

01 123*00601 5$ 

JSR 

01 124*000005 

5 

01 125’ 0060 1 3S 

.JSR 

01 1 26*001264  * 

DMS6 

01127*001161 

625. 

01 130*000740 

480. 

01  131  *02001  7  S 

LDA 

01 132*00601 5S 

JSR 

01 I 33*000004 

4 

01 134*002406 

I 

JMP 

t 

01135*0060135  MAX: 

JSR 

01 136*001 172* 

ERR 

01137*177470 

-200. 

01 140*000226 

1  50. 

01 141 *002401 

JMP 

01142*177777  CON: 

CONTR 

j 

01  143*05441 1  LIM  1  : 

STA 

01 144*004412 

JSR 

0! 145*024410 

LDA 

01 1 46*034007- 

LDA 

01147*002405 

JMP 

01150*054404  LIM0: 

STA 

01  151  *004405 

JSR 

01152*020403 

LDA 

011 53*002401 

| 

JMP 

1 

01154*000000  RETN: 

0 

01155*077777  LIMIT: 

* 

77777 

f 

01156*054413  WARN: 

STA 

01 157*006013$ 

JSR 

01  160*001 404  * 

MW  1 

01161 *001522 

850. 

01  1 62*001332 

730. 

01 163*00601 3S 

JSR 

01 164*001412* 

MW2 

01 1 65*001522 

850. 

01166*001313 

7  15. 

01 167*034402 

LDA 

01 170*001400 

JMP 

01171*000000  RETR: 

0 

j 

0! 1 72  *047523  ERRS  .TXT 
01173*051122  RR 
01 174*026131  Y/ 

01 1 7  5  *  0461 0 1  AL 
01176*042522  RE 
01177*042101  AD 
01200*020131  Y 
01201*052101  AT 


e.iPRN 
@ .MESS 


0/ .POT 

e . i phn 

@ .MESS 


0. .UREP 

#.iprn 

ecoN 


@ .MESS 


eCON  J  GO  BACK  TO  CONTR 


3*  RETN 

WARN 

1 /LIMIT 

3/DELN 

eRETN 

3/RETN 

WARN 

0/LIMIT 

sretn 


;max  normal  force 

3/RETR 

§.MESS 


e.MESS 


3/RETR 

0/3 


♦  SO 


TXT 


0 1 202  *046440 

M 

01203*054101 

AX 

01204*04451 1 

IM 

01205*046525 

UM 

01206*053040 

V 

01207  *046  101 

AL 

0 l 2 1 0 ' 042  52  5 

LIT 

01211 *000123 

S* 

01212*027056 

DM  S3 

01213*027056 

•  • 

01214*027056 

•  • 

01215*020056 

• 

01216*054504 

DV 

01217*040516 

N  A 

01220*04451 5 

MI 

01221 *020103 

C 

01222*040520 

PA 

01223*040522 

RA 

01224*04251 5 

ME 

01225*042524 

TE 

01226*051522 

RS 

01227*027056 

•  • 

01230*027056 

•  • 

01231 *027056 

•  » 

01232*027056 

•  « 

01233*000000 

* 

01234*051 120 

DMS  1  ! 

01235*051505 

ES 

01236*047105 

EN 

01237*020124 

T 

01240*040526 

VA 

01241 *052514 

LU 

01242*051 505 

ES 

01243*003000 

* 

01244*052056 

DMS2 ; 

01245*042522 

RE 

01246*020103 

c 

01247*000075 

=  * 

01250*045456 

DMS3  5 

01251 *047104 

DN 

01252*036440 

= 

01253*000000 

* 

01254*045456 

DMS4 : 

0 1255  *  051 504 

DS 

01256*036440 

= 

01257*000000 

* 

01260*051056 

DMS5: 

01261 *0521 1 7 

0T 

01262*036440 

= 

01263*000000 

* 

01264*052456 

DMS6  * 

01265*042522 

RE 

01266*020120 

P 

01267*000075 

=  * 

01270*047506 

DMS7  : 

01271 *051 125 

UR 

01272*047440 

0 

01273*052120 

PT 

01274*04751 1 

10 

01275*051516 

NS 

.TXT 


•  TXT 


•  TXT 


•  TXT 


•  TXT 


•  TXT 


.TXT 


*  .  . 


*PR 


*.T 


*.K 


*.K 


^  •  R 


+  .U 


*F  0 


r  . 

01276’ 040440 

A 

1 

01277*040526 

VA 

C-92 

01 300' 046 1  1  1 

lL 

01301 *041 101 

AS 

01302*04251 4 

LE 

01303*026440 

- 

01304*026455 

01305*003040 

* 

01 306 ' 054524 

DMS8 ! 

.TXT 

*TY 

01307*042520 

PE 

01310' 044440 

I 

01311 *052040 

T 

01312*0201 1 7 

0 

01313*0471  1  1 

IN 

01314*051 103 

CR 

01315*040505 

EA 

01316*042523 

SE 

01317*052040 

T 

01320*04651 1 

IM 

■1 

i 

01321 *020105 

E 

01322*052123 

ST 

a 

| 

01 323*050105 

EP 

| 

01324' 000000 

* 

01325*054524 

DMS9  : 

•  TXT 

*TY 

01326  *042523 

PE 

01327*042040 

D 

01330*052040 

T 

i 

01331 *0201 1 7 

0 

'* 

01332*042504 

DE 

01333*051 103 

CR 

| 

01334*040505 

EA 

i 

01335*042523 

SE 

01336*052040 

T 

01337*04651 1 

IM 

01340*020105 

E 

01341 *052123 

ST 

01342*050105 

EP 

01343*000000 

* 

01344*047101 

DMS10T 

•  TXT 

♦  AN 

j 

01345*020131 

Y 

01346*0521  17 

OT 

01347*042510 

HE 

01350*020122 

R 

i 

01351 *042513 

KE 

01352*020131 

Y 

r 

01353*020055 

- 

01354*047516 

MO 

01 355 ' 041 440 

C 

01356*040510 

HA 

01357*04351 6 

NG 

01360*00010- 

z* 

01361 *04251 6 

DMS1 1 S 

.TXT 

*NE 

01362*020127 

W 

01363*040526 

VA 

01364*05251 4 

l.U 

01365*051 505 

ES 

0 1 366 ' 000000 

* 

01367*054524 

DM10: 

.TXT 

♦  TY 

0 1370*042520 

PE 

i 

01371 *053440 

W 

i 

j 

_ ....... 

■ 

C-93 


01372 

01373 

01374 

01375 

01376 

01377 

01400 

01401 

01402 

01403 

01404 

01405 

01406 

01407 

01410 

01411 

01412 

01413 

01414 

01415 

01416 

01417 

01420 


052040 

T 

0201  1  7 

0 

04751 5 

MO 

044504 

D I 

054506 

FY 

053440 

W 

044505 

El 

044107 

GH 

051 524 

TS 

000000 

* 

020040 

MW  1 

047524 

TO 

0201  17 

0 

042510 

HE 

053101 

AV 

000131 

Y* 

025040 

MW2 

025052 

*  * 

025052 

** 

025052 

** 

025052 

** 

025052 

000000 

•  f 

.TXT  * 


.TXT  ”  * 


.END 


C-94 


00030-000000' 

•ALLS: 

.  T  I TL 
.ENT 
.  EX  ID 
.  EXTD 
.  EXT  D 
.  EXTD 
•  2REL 
ALLB 

UPDAT 

.ALLB. .SING. .CPNT 

•MI..M2..M3..M4..M5..M6..M7. • MSKR 
. PUN  1 . . P0N2 . . PRN1  , .EMPT. . PSIc. .LENG 
.TYP 
•  MEM 

00001 -000053 ' 

•SING: 

SING 

00000-000504 ’ 

• CPNT : 

CHA 

; POINTER  TO  WORD  THAT  CAN  BE  MODIFIED 

00003-000000 

XA: 

0 

00004-000000 

YA: 

0 

00005-000000 

COS: 

0 

00006-000000 

SIN: 

0 

00007-000000 

COS  F: 

0 

00010-000000 

S  I Nr  : 

0 

0001 1 -000000 

NB: 

0 

00012-000000 

NP: 

0 

00913-000000 

NPNB: 

0 

00014-000000 

L: 

0 

•  NREL 

J  ROUTINE  TO  UPDATE  ALL  BLOCK  CONTACTS 

; 

; 

ALLB : 

JSR  @. 

ALLB 

00000 '054416 

STA 

3.ALL3 

00001 ' 03400 1 S 

LDA 

3.  .Ml 

00002*102400 

SUB 

0.0 

00003 ' 04041 4 

STA 

0.  NBB 

J  BLOCK 

SCAN - 

00004 ' 0544 1 4 

BEGIN: 

STA 

3. HOLD 

00005'031 400 

LDA 

2.0.3 

00006' 151005 

MOV 

2. 2. SNR 

00007*002407 

JMP 

6ALL3  J NO  MORE  BLOCKS.  EXIT! 

00010*024407 

LDA 

1  .NBB 

0001 1 '004442 

JSR 

SING  i UPDATE  SINGLE  BLOCK  CONTACTS 

000 1 2 ' 0 1 0405 

I  Sc 

NBB 

000 13' 034405 

LDA 

3. HOLD 

00014" 175400 

INC 

3.3 

00015*000767 

JMP 

BEGIN 

0001 6'0O0000 

ALL3: 

0 

00017 '000000 

NBB : 

0 

00020*000000 

HOLD: 

0 

» 

IAFTER  ALL  SIDES  HAVE  BEEN  SCANNED#  THIS 
J  ROUTINE  THROWS  OUT  ALL  ENTRIES  IN  CONTACT 
JLIST  THAT  HAVE  NOT  BEEN  FLAGGED. 


00021 *024506 

SCAN: 

LDA 

1  .LBIT 

J  ’’PRESERVE"  FLAG 

00022 '034005S 

LDA 

3.  .M5 

00023*02001 1- 

LDA 

0.NB 

00024* 1 17000 

ADD 

0.3 

\ LOCATOR  OF  CONTACT  LIST 

00025*054425 

STA 

3.0LINK 

»  BACKWARDS  LINK 

00026*035400 

LDA 

3.0.3 

i GET  POINTER  COR  -1> 

00027*1751 12 

PHONE: 

MOVL# 

3.3.S2C 

i  END? 

00030*002500 

JMP 

@SIN3 

iDONE.  EXIT! 

00031 *021 400 

LDA 

0.0.3 

ilST  WORD 

00032  *  1 2341  5 

AND# 

1 . 0. SNR 

JIS  PRESERVE  FLAG  SET 

00033  *00041 0 

JMP 

DELET 

iNO.  DELETE  ENTRY 

00034* 1 22400 

SUB 

1.0 

1  KEEP  ENTRY;  REMOVE  FLAG 

00035*041 400 

STA 

0.0.3 

J  PUT  IT  BACK 

00036  *  1 7 1 400 

INC 

3.2 

C  -  95 


00037  MSI  4  0  0 

INC 

2,2  J  GET  ACTUAL  LINK  ADDRESS 

00040*050412 

STA 

2, OLINK  ; REMEMBER  REVERSE  LINK 

0004 1  *  035402 

LDA 

3,2,3  i GET  NEXT  ENTRY 

00042*000765 

JMP 

PHONE 

J  TO  DELETE  AN 

ENTRY,  AND  PUT  IT  IN  THE 

i  "EMPTY'*  LIST 

. 

00043  *02001 43 

DELET:  LDA 

0 ,  •  F.MPT  ;GET  LINK  FROM  LOCATOR 

00044*05401 4S 

STA 

3, . EMPT  J  PUT  IN  NEW  LINK 

00045*031 402 

LDA 

2,2,3  1  OLD  LINK  FIELD  OF  FNTRY 

00046  *04 1 402 

STA 

0,2,3  JSTORE  EMPT  LINK  IN  IT 

0OO47 '052403 

STA 

2 , A OL INK  JRYPASS  DELETED 

00050  *  1 55000 

MOV 

2,3  1  NEXT  ENTRY 

00051 *000756 

JMP 

PHONE  i  ENTRY 

00052*000000 

OLINK:  0 

J 

JROUTINE  TO 

UPDATE  SINGLE  BLOCK  CONTACTS 

i  JSR 

0 

.SING 

J 

J INPUT?  AC 1 

- 

BLOCK  # 

J  AC2 

t 

- 

POINTER  TO  START  OF  DATA,  BLOCK  N8 

00053*054455 

> 

SINGS  STA 

3 , SI N3 

00054*04401  1  - 

STA 

1  ,  NB 

00055*021014 

LDA 

0,14,2 

00056* 101005 

MOV 

0,0, SNR 

00057*002451 

JMP 

0SIN3  t EERO  AREA.  EXIT! 

00060*021000 

LDA 

0,0,2  i CONTROL  WORD 

00061 *0240105 

LDA 

1  , .MSKR 

00062*107400 

AND 

0,1  J  NO .  OF  POINTS 

00063*044446 

STA 

1 , N PNTS  ^NEGATIVE  POINT  COUNTER 

00064* 126400 

SUB 

1,1 

00065*044012- 

STA 

1  ,NP 

00066*0360165 

JSR 

0.LENG  J  GET  LENGTH  L  THIS  SIDE 

00067'040014- 

STA 

0,  L 

00070*00601 1 S 

JSR 

e.PONl  J  GET  GLOBAL  CO-ORDS 

0007! *040441 

STA 

0,X0 

00072*044441 

STA 

1  ,Y0 

00073*040003- 

STA 

0/XA 

00074*044004- 

STA 

1  ,  YA 

00075*024012- 

LDA 

1  ,NP 

00076*000420 

JMP 

DOWN 

00077  *  125400 

BACK:  INC 

1  ,  1 

00100*00601  IS 

JSR 

@ .P0N1 

00101 *040573 

STA 

0,  XB 

00102*044573 

STA 

1  ,  YB 

00103*050423 

STA 

2  ,  AC2 

00104*004433 

JSR 

RED  JSEARCH  FOR  CONTACTS 

00105*030421 

LDA 

2,  AC2 

00106*010012- 

IS2 

NP 

00107  *024012- 

LDA 

1  ,  NP 

001 10*00601 6S 

JSR 

0  .LENG 

001 1 1 *040014- 

STA 

0  ,  L 

001 12*020562 

LDA 

0, XB  SNEW  BECOMES  OLD 

001 1 3*040333- 

STA 

e.XA 

001 14 '020561 

LDA 

0,  YB 

001 15*040304- 

STA 

0  »  Y  A 

00116*01 4413 

DOWN:  DS2 

NPNTS  f  JUMP  OUT  IF  DONE 

00117  *000760 

JMP 

BACK 

00120*020412 

LDA 

O,X0  JLAST  LINE 

00121 *040553 

STA 

0 ,  XB 

C-96 


00122*02041  1 

LDA 

0/ Y0 

00123*040552 

STA 

BiYB 

00124*004413 

JSR 

RED 

JSEARCH  for  contacts 

00125*000674 

JMP 

SCAN 

J  SCAN  FOR  FLAC-S 

00126 '000000 

AC2  S 

0 

00127  *020000 

LRIT: 

20000 

00130*000000 

SIN3: 

0 

00131 '000000 

NPNTS 

:  0 

00132*000000 

X0 : 

0 

001 33  *000030 

Y0: 

0 

00134*000000 

XLBOX 

:  0 

00135*000000 

YLBOX 

:  0 

00136*000000 

XU80X 

:  0 

JFIND 

RANGE  OF 

BOX  SCAN 

CXRANGz YRANG) 

J  FOR 

LINE  C <XAz 

YA)/ ( XB> 

YB)  I 

00137*054543 

RED: 

STA 

3/ SVR3 

00140*1 02520 

SU32L 

0  z  0 

00141 *040552 

STA 

0*  3YPAS 

)  1 N  I  T  I AL I 2 E  SKIP  FLAG 

00142*033547 

LDA 

2/C100 

00143*020304- 

LDA 

0/YA 

00144*024531 

LDA 

1  /  YB 

00145*122512 

SUBL# 

1 /0/S2C 

) IS  YA>  =  YB  ? 

00146*000404 

JMP 

REV 

)  NO 

00147*044533 

STA 

1  z  YL 

iSTORE  YB  AS  LOKER 

00150*040531 

STA 

0/YU 

JYA  AS  UPPER 

00151 *003403 

JMP 

ON 

00152*040525 

REV: 

STA 

0,  YL 

iTHE  REVERSE 

00153*044526 

STA 

1  /YU 

00154*020003- 

ON: 

LDA 

0  /  XA 

00155*024517 

LDA 

1  >XB 

00156' 122512 

SUBLf? 

1/0/S2C 

;D0  SAME  FOR  X 

001 57*000404 

JMP 

VER 

00160*044516 

STA 

l,XL 

00161 *040517 

STA 

0/XU 

00162*000403 

JMP 

ONN 

00163*043513 

VER: 

STA 

0/  XL 

00164*044514 

STA 

I  /  XU 

;FIND 

BOX  ADDRESSES 

00165*02451 1 

ONN : 

LDA 

1  z  XL 

00166*102400 

SUB 

0  z  0 

00167*073101 

DIV 

00170*101004 

MOV 

0/ 0/ 52R 

00171 *000405 

JMP 

.♦5 

00172* 125005 

MOV 

1 z l / SNR 

00 173'000403 

JMP 

.♦3 

00174* 102520 

SUB2L 

0/0 

00175* 106400 

SUB 

0/  1 

00176*044736 

STA 

l /XLBOX 

;N0.  X  BOXES  FROM  ORIG 

00177  *024500 

LDA 

l  /YL 

00200 ' 1 02400 

SUB 

0/0 

00201 *073101 

DIV 

00202  *  101304 

MOV 

0/0/S2R 

00203*000405 

JMP 

.  +  5 

00204  *  1 25005 

MOV 

1 / 1 /SNR 

00205*000403 

JMP 

.+3 

00206  *  1 02520 

SUB2L 

0/0 

00207  *  1 06400 

SUB 

0/  1 

00210*044725 

STA 

1 / YLBOX 

5  NO •  Y  BOXES  FROM 

0021 1 *024467 

LDA 

1  /  XU 

00212* 102400 

SUB 

0.0 

C  -  9  7 


0021 3’ P7310! 

DIV 

002 1 4  *  044722 

STA 

1  /XUBOX 

0021 5*024464 

LDA 

1  /YU 

00216* 102400 

SUB 

0/0 

00217*073101 

DIV 

00220*020715 

LDA 

0/ YLBOX 

00221  *  1 06400 

SUB 

0/  1 

00222*  124000 

COM 

1  /  1 

00223*044463 

STA 

1  / YRANG 

00224*  034003S 

LDA 

3/  .M3 

00225* 103120 

ADD2L 

0/0 

00226* 103120 

ADDHL 

0/0 

00227  *  1  17000 

ADD 

0/3 

00230*024706 

LDA 

1 /XUBOX 

00231 *020703 

LDA 

0/XLBOX 

00232* 106400 

SUB 

0/  1 

00233* 124000 

COM 

1/1 

00234*044451 

STA 

1/XRANG 

00235*044452 

STA 

1  zXCNT 

00236  *  1  17000 

ADD 

0/3 

00237*054445 

LOOPO: 

STA 

3/NLEFT 

00240*054443 

LOOPS 

STA 

3/KEEP 

00241 *035400 

LDA 

3/0/3 

00242* 175112 

MOVL# 

3/3/SEC 

00243*000415 

JMP 

ENDM 

00244*021400 

THERE: 

LDA 

0/0/3 

00245*0300105 

LDA 

2/  .MSKR 

00246* 1 13400 

AND 

0/2 

00247*02401 1- 

LDA 

1  /NB 

00250*1 32415 

SUB# 

1 /2z  SNR 

00251 *000404 

JMP 

MOVE 

00252*054440 

* 

STA 

3/SV3 

00253*004443 

i 

i 

JSR 

PUSH 

00254*034436 

LDA 

3/SV3 

00255*035401 

MOVE: 

LDA 

3/1/3 

00256*1 75113 

MOVL# 

3/3/SNC 

00257*000765 

JMP 

THERE 

00260*034423 

ENDM : 

LDA 

3/KEEP 

00261  *  175400 

INC 

3/3 

00262*010425 

IS2 

XCNT 

00263*000755 

JMP 

LOOP 

00264*020421 

LDA 

0/XRANG 

00265*040422 

STA 

0/XCNT 

00266*020422 

LDA 

0/SIXTN 

00267*034415 

LDA 

3/NLEFT 

00270* 1 1 7000 

ADD 

0/3 

00271 *010415 

IS2 

YRANG 

00272*000745 

JMP 

LOOPO 

00273*002407 

JMP 

@SVR3 

00274*000000 

XS: 

0 

00275*000000 

YB: 

0 

00276*000000 

XL: 

0 

00277  *000000 

YL: 

0 

00300*000000 

XU: 

0 

00301 *000000 

YU: 

0 

00302*000000 

S  VR3 : 

0 

00303*000000 

KEEP: 

0 

00304*000000 

NLEFT : 

0 

JNO.  X  BOXES  FROM 
/  OR  1  GIN  TO  END 


JNO.  Y  BOXES.... 

JNO.  Y  BOXES  IN  SCAN 

JADD  lz  MAKE  -VE 

J  MULT  I  PLY  YLBOX  BY  20 


J  NO . X  BOXES  IN  SCAN 


J  COPY  FOR  SCAN  ROUTINE 
J START  BOX  ADDR  IN  AC3 
J  LEFT-HAND  POINTER 
{MOVING  X  POINTER 

JEND  MARK? 

J  YES 

J  GET  WORD  IN  LINKED  LIST 
{JUST  NB  IN  AC2 


{SAME  BLOCK!  DISCARD! 


JCNPjNB).  IN  AC0J  HOME  NB  IN  AC1 


J  2ND  WORD  ( =L INK  > 
JEND  OF  LINK  CHAIN? 


JSTEP  POINTER  IN  X  DIREC. 
JEND  OF  X  SCAN? 

JNO 

J  YES/  GET  OLD  -VE  X  COUNT 


J I  ROW  UP/  L.H.  SIDE 
JEND  OF  Y  SCAN? 

JNO 

J  YES/  EXIT! 


00305’  000000 

X  RANG : 

0 

C-9B 

00306*000300 

YHANC- : 

0 

00307 • 000000 

XCNT  : 

0 

003  IP’ 000020 

SIXTN: 

20 

0031 l  ’  0  00 1 03 

Cl  00: 

1  00 

003 1 3 ' 003003 

SV3: 

0 

003 1 3 ’ 000000 

BYPAS : 

0 

003 1  A ' 000525 ' 

SVP3R : 

SVP3 

00315' OO0630’ 

YTGR : 

YT  GET 

003 1 6 ' 0  567  7  6 

PUSH: 

SI  A 

3,  0SVP3R 

00317 ’04001 3- 

STA 

0.NPNB 

00320*014773 

DSH 

BYPAi 

7 ONLY  COM 

P'J  I  E  COS  S  SIN 

00321 *000434 

JMP 

JELLO 

t  FIRST 

TIME  ROUND 

J  TO  GET 

LOCAL 

COS  AND  SIN  Or  THIS 

EDGE 

00322*020752 

LDA 

0  ,  XB 

00323 ' 024003- 

LDA 

1  ,XA 

00324 • 1 22400 

SUB 

1  >  0 

>  XR-XA 

00325 ’040007- 

STA 

0  »  COSr 

JCOS  SIGN 

ELAG 

00326 '101112 

MOVL* 

0.0 ,£2C 

}  -VE? 

00327 ’ 1 00400 

NEG 

0,0 

>  YES,  GET 

ABS(XB-XA) 

00330*0300 1 4- 

LDA 

2,  L 

J  LENGTH  OF  EDGE 

00331 ’126400 

SUB 

1  ,  1 

00332 ’ 1 42513 

SUBLi» 

2 , 0 , SNC 

iXD>=L? 

00333* 124001 

COM 

t  » 1  >SKP 

JSET  AC  1 

TO  1111--- 

00334*073101 

D  I  V 

00335*101 1 12 

MOVL# 

0,0, S2C 

J ROUND  UP 

IF  NECESSARY 

00336* 125400 

INC 

1  ,  1 

00337*044005- 

STA 

1  ,  COS 

00340*020735 

LDA 

0,Y8 

00341 *024004- 

LDA 

1  ,  YA 

00342*122400 

SUB 

1 .0 

JYB-YA 

00343*040010- 

STA 

0,SINF 

fSIN  SIGN 

FLAG 

00344*101 1 12 

MOVL* 

0.0. SEC 

i  -VE? 

00345* 100400 

NEG 

0.0 

00346* 126400 

SUB 

1  *  1 

00347*142513 

SUBL# 

2,0,  SNC 

JYD>=L? 

00350*124001 

COM 

1 , 1 ,SKP 

;YES 

00351 *073101 

DI  V 

00352*101 1 12 

MOVL* 

0,0, S2C 

00353*125400 

INC 

1 , 1 

IROUND  UP 

00354*044006- 

STA 

1  ,SIN 

I 

) GET  TRANSFORMED  CO-ORDS  OF  X,Y 


J COMPUTES:  XT  = 

XG*COS<A)+¥G*SIN<A> 

J 

YT  = 

Y G*COS  C  A  > 

-XG*SIN(A> 

00355*020013- 

J 

JELLO: 

LDA 

0,NPNB 

J  (NP 

:  NB  ) 

00356*024010$ 

LDA 

1 , .MSKR 

00357*1 15300 

MOVS 

0.3 

00360* 123400 

AND 

1,0 

JNB 

IN  AC0 

00361 ' 1 67400 

AND 

3.  1 

;np 

IN  AC  1 

00362*044535 

STA 

1 , OTHER 

00363*0340015 

LDA 

3,  .Ml 

00364* 1 17000 

ADD 

0,3 

00365*031400 

LDA 

2,0,3 

f PO INTER  TO 

NF.U 

BLOCK 

00366*00601 1 S 

JSR 

e .P0N1 

i  GET 

GLOBAL 

CO- 

ORDS 

00367*040537 

STA 

0,X 

00370*044537 

STA 

I  ,  Y 

JACTUAL  CONTACT 

CO-ORDS 

00371 *034003- 

LDA 

3  ,  XA 

00372*162400 

SUB 

3,0 

C-99 


00373*040522 

STA 

0,XG  JHEL.  TO  EDGE  START 

00374*034004- 

LDA 

3,  YA 

0037  3 •  1  66400 

SU8 

3,  1 

00376' 11 44630 

STA 

l  ,  YG 

00377 ' 0067 1 6 

» 

JSR 

@YTGR 

00430 • 354524 

STA 

3  ,  YT  {LOCAL,  TRANSFORMED  Y 

0040 l ' 1265^0 

SUBEL 

1  *  1 

00403  *16651? 

SU8L# 

3,  1  ,SEC  l IS  YT> 1 ? 

00403 ' 003  522 

JMP 

SVP3  {YES.  NOT  TOUCHING.  EXIT! 

00484 '02451 7 

LDA 

TWO 

00405 '137112 

ADDL# 

1 , J,SEC  IIS  YT <  =  -3 ? 

00406 '00251 7 

| 

JMP 

SSVP3  IYES.  TOO  DEEP.  EXIT! 

00407  *030006- 

J 

LDA 

2,  S I N  } NOW  FOR  XT 

004 1 0 '024506 

LDA 

1  ,  YG 

0041 1 ' 1 02440 

SU30 

0,0 

00412' 125112 

MOVL# 

1,1, SHC  {SET  CARRY  IF  NEG 

00413 ' 124443 

NEGO 

1,1  {AND  MAKE  AC1  ♦ VE 

00414*073301 

MUL 

00415' 125112 

MOVL# 

1,1, SEC 

00416* 101400 

INC 

0,0  J  ROUND  UP 

00417* 101002 

MOV 

0,0, SEC  {CARRY? 

00420 ' 1 00400 

NEG 

0,0  {RESTORE  SIGN 

00421 *024010- 

LDA 

1  ,SINF 

00422' 125102 

MOVL 

1 , 1 , SEC  {SI GN  OF  SIN 

00423 ' l 00400 

NF.G 

0,0 

00424 • 1 1 6030 

MOV 

0,3  {SHUNT  INTO  AC3 

0042  5 ' 024  47  0 

LDA 

1  ,XG 

00426*030005- 

LDA 

2, COS 

03427 • 1 02440 

SUBO 

0,0 

00430*  1251  12 

MOVL# 

1,1, SEC 

00431 ' 124440 

nego 

1,1 

00432 '073301 

MUL 

00433* 125112 

MOVL# 

1,1, SEC 

00434' 1 01 400 

INC 

0,0 

00435 ' 101002 

MOV 

0,0, SEC 

00436 ' 1 00400 

NEG 

0,0 

00437*024007- 

LDA 

l , COSF 

00440  *1251 02 

MOVL 

1 , 1 , SEC 

00441  *  100400 

NEG 

0,0 

00442*1 17000 

ADD 

0,3  {ADD  TO  PREVIOUS  RESULT 

{  LOCAL* 

t 

TRANSFORMED  X  NOW  IN  AC3 

00443 ' 02401 4- 

J 

LDA 

1  ,  L 

00444*166512 

SUBL# 

3,1, SEC  SIS  XT>L? 

00445 ' 002460 

JMP 

85VP3  SYES 

00446*1751 12 

MOVL# 

3, 3, SEC  SIS  XT<0? 

00447 '002456 

JMP 

@SVP3  SYES 

{TO  FIND  IF  THIS  CONTACT  ALREADY  EXISTS 

00453  *O34005S 

LDA 

3,  .MS 

00451  *02001  1  - 

LDA 

0,NB 

00452*1 17000 

ADD 

0,3 

00453*054445 

STA 

3, PRODL  {REMEMBER  CONTACT  LOCATOR 

00454 '0240 1 2- 

LDA 

1  ,NP 

00455*035400 

LDA 

3,0,3  SGET  POINTER  (OR  -1> 

00456*1751 12 

SEA: 

MOVL# 

3, 3, SEC 

00457  *000430 

JMP 

CLOUD  STHIS  CONTACT  NOT  STORED 

00460*021400 

LDA 

0,0,3  S 1  ST  WORD  CONTACT  LIST 

00461 *0300 l 0S 

LDA 

2,  .MSKR 

00462  *  1 13400 

AND 

0*2 

} POINT  (EDGE)  NUMBER 

00463 • 1 3241 4 

SU9# 

1,2. SER 

>  SAME  EDGE? 

00464*000405 

JMP 

WAVES 

J  NO 

00465  *  02 1401 

LDA 

0*1*3 

1  GET  PO I  NT  *  BLOCK 

00466*033013- 

LDA 

2*NPNB  ; 

COMPOSITE  WORD 

00467*1 12415 

SUB# 

0*2*  SNR 

l SAME? 

; — ALREADY  TOUCHING - 

00470*000403 

JMP 

REN 

) YES.  UPDATE  SIN* 

COS  ETC. 

00471 *035402 

WAVES: 

LDA 

3»  2 >  3 

JNO.  GET  LINK  FIELD 

00472*000764 

JMP 

SEA 

JADD  IN 

EXTRA  NORMAL  FORCE  TO  PREVENT  PUNCH-THROUGH 

i  IF  YT 

<  -2 

00473*024431 

REN: 

LDA 

1  >  YT 

00474* 125503 

INCL 

1  *  1  >SNC 

00475*000466 

CHANGE: 

JMP 

RENEW 

t  THIS  WORD  CAN  BE 

REPLACED 

00476*020405 

LDA 

0*  FORCE 

00477*025406 

LDA 

1  >6,3 

) NORMAL  FORCE*  FN 

00500* 107000 

ADD 

0,  1 

JADD  IN  INCREMENT 

00501 *045406 

STA 

1  >6,3 

1  PUT  FN  BACK 

00502*000773 

JMP 

CHANGE 

00503*010000 

FORCE: 

1  0000 

i  PREVENTIVE  FORCE 

00504*000475* 

CHA: 

CHANGE 

00505*000466 

JMP 

RENEW -CHANGE* l 

00506*000454 

1 

JMP 

HEAD-CHANGE* 1 

J 

t --NOT 

ALREADY 

TOUCHING- 

— 

00507*024415 

CLOUD: 

LDA 

1  *  YT 

00510* 125004 

MOV 

1  *  1  *  SER 

*•  THROW  OUT  IF 

0051 1  *  1 251  12 

MOVL# 

1  *  1  *  SEC 

I  YT>0 

00512*000554 

JMP 

WEED 

00513*002412 

JMP 

@SVP3 

00514*020000 

FLAG: 

20000 

0051  5  *.000000 

XG: 

0 

00516*000000 

YG: 

0 

00517*000000 

OTHER: 

0 

t CONTACT 

POINT  # 

00520*000000 

PRODL : 

0 

00521  *  1 00000 

SFLAG : 

1 00000 

00522*040000 

CFLAG : 

40000 

00523*000002 

TWO: 

2 

00524*000000 

YT: 

0 

00525*000000 

SVP3 : 

0 

00526*000000 

X: 

0 

i ACTUAL 

CONTACT  CO-ORDS 

00527*000000 

Y: 

0 

00530*000126* 

AC2R : 

AC2 

00531 *000000 

AC3S : 

0 

» 

JTO  insert  new  entry.... 

I 


00532*034014$ 

ENTER:  LDA 

3* .EMPT 

I  GET 

ADDR. 

IN  EMPT.  LOC. 

00533*1751 12 

MOVL# 

3*  3*  SEC 

;  is 

IT  -1? 

00534*000460 

JMP 

FLOC 

J  YES 

.  MUST 

USE  MORE  CORE 

00535*031402 

LDA 

2*2,3 

}  GET 

LINK 

IN  FREE  SPACE 

00536*050014$ 

STA 

2* .EMPT 

J UPDATE  EMPTY  LOCATOR 

00537*030761 

FROG:  LDA 

2*  PRODL 

J  GET 

CONTACT  LOCATOR 

00540*021000 

LDA 

0*0*2 

00541 *055000 

STA 

3*0*2 

J STORE  NEW 

ADDR.  IN  IT 

00542*041402 

STA 

0*2*3 

}  PUT 

IN  NEW  LINK  FIELD 

J NOW  PUT  IN  REST  OF  DATA 

00543*102400 

SUB 

0*0 

J  SET 

EERO 

IN  FOLLOWING: 

00544*041403 

STA 

0*3*3 

i  S 

(SHEAR 

DISP) 

C-101 


00545*041 404 

STA 

0*4*3  ) SDEL  C 1  NCR  •  S.D.) 

00546  *  041 405 

5TA 

0*5*3  *  ND  EL  (INCR.  N . D  •  ) 

00547  *041 406 

STA 

0*6*3  J  FN  (NORMAL  FORCE) 

00550*041407 

STA 

<3,1,3  J  FS  (SHEAR  FORCE) 

0055 1 *054760 

HEAD: 

STA 

3  j  AC3  S 

00552*024012- 

LDA 

1  <NP 

00553*032755 

LDA 

2 * PAC2R 

00554*00601 7  S 

JSR 

@  .TYP 

00555  *  101300 

MOVS 

0.0 

00S56  *  107000 

ADD 

0*  1 

00557*034752 

LDA 

3* AC3S 

00560*045400 

STA 

1,0,3  I  HEAD  OF  LIST 

00561 *023013- 

LDA 

0  j  NPNB 

00562*041401 

STA 

0*1*3  l 2ND  WORD 

00563*020743 

RENEW: 

LDA 

0*X 

00564*041  412 

STA 

0*12*3  J  GLOBAL  X  OF  CONTACT 

00565*020742 

LDA 

0*  Y 

00566*041413 

STA 

0*13*3  J GLOBAL  Y  OF  CONTACT 

00567*020006- 

LDA 

0*  SIN 

00570*041410 

STA 

0*10*3  J  SIN 

0057 1 *020005- 

LDA 

0*COS 

00572*041 41 1 

STA 

0*11,3  JCOS 

00573*020721 

LDA 

0  *  FLAG  J  "PRESERVE**  FLAG 

00574*030010- 

LDA 

2*  SI NF 

00575* 151113 

MOVL# 

2*2, SNC 

00576*000403 

JMP 

•  +  3 

00577*024722 

LDA 

l  *SFLAG 

00600* 123000 

ADD 

1*0  JADD  IN  SIN  FLAG  IF  -VE 

00601 *030007- 

LDA 

2.C0SF 

00602* 151113 

MOVL# 

2*2*SNC 

00603*000403 

JMP 

•  +3 

00604*024716 

LDA 

1*CFLAG 

00605*123000 

ADD 

1.0  JADD  IN  COS  FLAG  IF  -VE 

00606*025400 

LDA 

1*0*3  JOLD  HEAD 

00607*030420 

LDA 

2* SCMSK 

00610’ 147400 

AND 

2*  1 

0061 1 ’ 1 07000 

ADD 

0*1 

00612*045400 

STA 

1*0*3  J  NEW  HEAD 

00613*002712 

JMP 

@SVP3 

0061 4 ’034007S 

FLOC: 

LDA 

3/.M7  J  NEXT  FREE  LOCATION 

00615*020020$ 

LDA 

0, .MEM  *  MAX •  ADDRESS  POSSIBLE 

00616*02401 5$ 

LDA 

1  * .PSIZ 

00617  *  1 67000 

ADD 

3*1 

00620* 122513 

SUBL# 

1  * 0* SNC  *  STORAGE  OVERFLOW? 

00621 *000404 

JMP 

NOG  J  NO  *  OK 

00622*006013$ 

JSR 

S.PRNl  J  YES*  RING  THE  BELL 

00623*000007 

7 

00624*002701 

JMP 

0SVP3  JEXIT  WITHOUT  STORING 

00625*044007S 

NOG: 

STA 

1*.M7  JUPDATE  FREE  POINTER 

00626*00071 1 

JMP 

FROG 

00627*017777 

scmsk: 

* 

17777 

J  TO  MASK  OFF  OLD  S*C*P  FLAGS 

M 

1  TO  CALCULATE  YT 

J  INPUT 

:  YG  IN 

AC  1 

00630  *054435 

YTGET: 

STA 

3* YTSAV 

00631 *030005- 

LDA 

2, COS 

00632  *  1 O2440 

SUBO 

0*0 

00633*125112 

MOVL# 

l » l  *SZC 

00634  *  1 24440 

NEGO 

1  *  1 

00635*073301 

MUL 

C-102 


00636 ' 125112 

MOVL# 

1  *  l  ,SEC 

00637  •  1  014-20 

INC 

0,0 

00640 ’ 1 0 1 002 

MOV 

0,0, SHC 

00641 ' 100403 

NEG 

0,0 

00642*024007- 

LDA 

1  ,  COSE 

00643  *  1251 02 

MOVL 

1,1,  S2C 

00644  *  1 00400 

NEG 

0,0 

00645  *  1  1 5000 

MOV 

0,3 

l  PART I AL  SUM  IN  AC3 

00646*024647 

LDA 

1  ,XG 

0064?  *030306- 

LDA 

2, SIN 

00650  *  1 02440 

SUBO 

0,0 

03651  *  1251  12 

MOVL# 

1,1,  S2C 

00652  *  124440 

NEGO 

1,1 

00653*073301 

MUL 

00654*1251 12 

MOVL# 

1,1, SEC 

00655* 101400 

INC 

0,0 

00656* 131002 

MOV 

0,0, SEC 

00657  *  1 00400 

NEG 

0,0 

00660*024010- 

LDA 

1 , S INF 

00661  *  125102 

MOVL 

1,1, SEC 

00662  *  1 00400 

MEG 

0,0 

00663* 1 1 6400 

SUB 

0,3 

1  SUBTRACT  PROM  PREVIOUS 

00664*002401 

JMP 

QYTSAV 

00665*000000 

YTSAV : 

0 

00666*024631 

WEED: 

LDA 

1, OTHER 

t CONTACT  CANDIDATE 

t ROUT INE  TO  WEED  OUT  IMPOSSIBLE  CONTACTS 

00667  *044444 

STA 

1 , SW I T 

00670*125005 

MOV 

1, 1,SNR 

1  EERO? 

00671 *000404 

JMP 

TOAD 

;yes 

00672*102520 

SU82L 

0,0 

00673*106430 

SUB 

0,  1 

1  TRY  C POINT- 1 3 

00674*000402 

JMP 

GETIT 

00675*126520 

TOAD: 

SUB2L 

1,1 

ITRY  POINT  #1 

00676*0060125 

GETIT: 

JSR 

e.P0N2 

JCPONT  ALREADY  PRIMED) 

00677*050435 

STA 

2,  SV2 

00700  *  034303- 

LDA 

3,XA 

00701  *  1 62400 

SUB 

3,0 

00702*04061 3 

STA 

0,XG 

iREL  X 

00703*034004- 

LDA 

3,  YA 

00704  *  I 66400 

SUB 

3,1 

JtREL  Y 

00705*004723 

JSR 

YTGET 

00706*024615 

LDA 

I  ,  TWO 

00707*1671  12 

ADDL# 

3,  1 ,52C 

J  YT 1 <  =  -2? 

00710*002615 

JMP 

&SVP3 

aYES.  IMPOSSIBLE  CONTACT 

0071 1 *020422 

LDA 

0, SWI T 

00712* 101112 

MOVL# 

0 , 0 , SEC 

J2ND  TIME  ROUND 

00713*00061 7 

JMP 

ENTER 

5YES.  STORE  THE  CONTCT 

00714*030420 

LDA 

2,  SV2 

007 1 5*025003 

LDA 

1,0,2 

iCONTROL  WORD 

007 1 6  *  0340 1 0S 

LDA 

3, .MSKR 

007 17  *  1 67400 

AND 

3,  1 

JNO.  OF  POINTS  (PMAX) 

00720* 176000 

ADC 

3,3 

a- 1 

00721 *054412 

STA 

3, SW  I T 

ISET  FOR  EXIT  2ND  TIME 

00722* 101004 

MOV 

0,0, S2R 

00723*000403 

JMP 

NEWT 

aSWIT  MUST  BE  >0 

00724* 1 67000 

ADD 

3,1 

JTRY  POINT  ( PMAX- 1 ) 

00725*000751 

JMP 

GETIT 

00726* 101400 

NEWT : 

INC 

0,0 

BOTHER  +! 

00727* 106415 

SUB# 

0, 1 , SNR 

ais  IT  EQUAL  TO  PMAX? 

00730* 1 02400 

SUB 

0,0 

BYES.  USE  POINT  #0 

RESULT 


k 


00731*105000  MOV  0>1  C-103 

00732'O00744  JMP  6ET1T 

00733*000000  SW IT :  0 

007 3-4  * 000000  SV2:  0 

.END 


•TITL  REBOX 

J  TO  RE-CLASS  I FY  (IF  NECESSARY)  ALL 
J  THE  POINTS  OF  ONE  BLOCK  IN  NEW 
1  BOXES* 

) 

1  JSR  e.REBX 

t  < INPUT :  AC2  -  POINTER  TO  BLOCK  DATA, 

J  AC  1  -  POINTER  TO  LOCATOR  ) 

JAC2  IS  PRESERVED. 


•  ENT 
.ENT 

•  EXTD 
.EREL 


00000-000000' 

. REBX : 

REBX 

00001-000002 ' 

•  REBE  : 

REBE 

00002-000377 

.MSKR: 

377 
•  NREL 

00000*0200015 

REBX: 

LDA 

00001 ' 1 06400 

SUB 

00002 ' 044506 

REBE: 

STA 

00003*054477 

STA 

00004*050475 

STA 

00005*021000 

LDA 

00006*024002- 

LDA 

00007  *  123400 

AND 

000 1 0  *  040504 

STA 

0001  1  *  126400 

SUB 

00012  *  044475 

STA 

00013 ' 0  0  6  0  0  4  S 

JSR 

00014*000403 

JMP 

00015*024472 

COW: 

LDA 

0001 6*CO6005S 

JSR 

00017*176520 

PLACE: 

SUBeL 

00020’ 162512 

SUBL# 

e0021 *000523 

JMP 

00022* 1 6651 2 

SU3L# 

00023 ' 00052 1 

JMP 

00024*034466 

LDA 

00025* 1 62513 

SU8L# 

00026*000516 

JMP 

00027 ’ 034464 

LDA 

00030  *  1 6651  3 

SUBL# 

00031 '000513 

JMP 

00032*044453 

STA 

00033* 1 05000 

i 

CONT: 

MOV 

00034 ’034002S 

LDA 

00035*030447 

LDA 

00036* 1 02400 

SUB 

00037*073101 

DIV 

00040  *  1 37030 

ADD 

00041 ' 1 02400 

SUB 

00042  *  024443 

LDA 

00043*073101 

DIV 

00044  *  1 27 1 20 

ADDeL 

00045* 127120 

ADDZL 

00046* 1 37000 

ADD 

00047 *054442 

STA 

00050 ' 1 7 1 000 

MOV 

00051 *020437 

LDA 

PUP  J  TEMP  TEST  ENTRY 

• REBX, . REBe , .MSKR 
•M1,.M3,»M4, .PON  1 , . P0N2, .PR 


) ENTRY  WITH  NB  IN  AC1 


0,  .Ml 

0,1 

1  ,  NB  ) REGENERATE  NB 

3/SVRB3 

2,  SV2 

0,0,2 

1  ,  .MSKR 

1,0 

0, PCNT 
1,1 
1  ,NP 
e.pONi 
PLACE 
1  ,NP 
6.P0N2 

3.3  7CHECK  IF  ON  SCREEN 
3,0, SeC  ,*X<  =  0? 

FIX  ;YES,  FIX  THE  BLOCK 

3,1, SeC  ;Y<=0? 

FIX 

3,  C 1 777 

3,0, SNC  ;X>=1023  (DECIMAL)? 
FIX 

3, Cl  41  4 

3,1, SNC  )Y>=780  (DEO? 

FIX 

1  »NY 

0,1  JFIND  NEW  BOX 

3,  .M3 

2  ,  C I  00 

0,0 

1 .3 

0,0 

1  ,NY 

I  ,  1 
1  ,  1 

1,3  ) BOX  ADDR.  IN  AC3 

3, BOX 

3,2 

0,NB 


C- 105 


00052*024435 

LDA 

1  .NP 

00053* 125300 

MOVS 

1.1 

00054*123000 

ADD 

1.0 

/ (NP:NB)  IN  AC0 

00055*004502 

JSR 

FIND 

/FIND  OLD  BOX 

00056*000461 

JMP 

ITER 

/SUCCESS!  NO  CHANGE 

00057*034437 

LDA 

3. LIST 

/FAILURE!  MUST  SEARCH  AROUND 

00060*054426 

WINE: 

STA 

3. POINT 

00061 *030430 

LDA 

2. BOX 

00062*025400 

LDA 

1.0.3 

00063*125005 

MOV 

1.1. SNR 

00064* 0004S3 

JMP 

ITER 

} WHERE  IS  IT 

00065* 133000 

ADD 

1.2 

00066* 024302 S 

LDA 

1  .  .M3 

00067* 132512 

5UBL# 

1.2. SEC 

00070*000406 

JMP 

NEXT 

J NON-EXISTENT  BOX 

00071 ‘0240035 

LDA 

1  .  .M4 

00072*132513 

SUBL# 

1 .2.SNC 

00073*000403 

JMP 

NEXT 

/  DITTO 

00074*004463 

JSR 

FIND 

/TRY  THIS  BOX 

00075*000433 

JMP 

FOUND 

/FOUND  IT! 

00076*034410 

NEXT: 

LDA 

3. POINT 

/NO  GOOD.  TRY  NEXT  BOX 

00077  *  175400 

INC 

3.3 

00100*000760 

JMP 

WINE 

00101 *000000 

SV2: 

0 

00102*000000 

SVRB3: 

0 

00103*000000 

OLDS 

0 

00104*000100 

C100: 

100 

001 05  *  000000 

NY: 

0 

00106*000000 

POINT: 

0 

00107*000000 

np: 

0 

00110*000000 

NB  : 

0 

001 1 1 *000000 

BOX: 

0 

00112*001777 

C 1 777 : 

1  777 

001 13*001414 

C1414: 

1414 

001 14*000000 

PCNT: 

0 

001 15*004000 

FBI  T : 

4000 

/MASTER 

FIX  BIT  (OVERRIDES  MAN.  BIT) 

00116*000117* 

LIST: 

.  +  1 

/LIST  ( 

OF  SURROUNDING  BOXES.  IN  EXPECTED 

/ ORDER 

OF  PROBABLE  OCCURANCE 

00117*000020 

20 

00120*177777 

-l 

00121 *000001 

1 

00122*177760 

-P.0 

00123*000017 

17 

00124*000021 

21 

00125*177757 

*21 

00126*177761 

*17 

00127*000000 

0 

00130*034753 

FOUND: 

LDA 

3. OLD 

/GET  CALLING  ADDR 

00131 *025001 

LDA 

1.1.2 

/EXISTING  LINK 

00132*045400 

STA 

1  .0.3 

/BRIDGE  ACROSS  ENTRY 

00133*034756 

LDA 

3. BOX 

/NEW  BOX  ADDRESS 

00134*021400 

LDA 

0.0.3 

/POINTER  (OR  -1> 

00135*051400 

STA 

2.0.3 

/PUT  IN  NEW  ADDRESS 

00136*041001 

STA 

0.1.2 

/COMPLETE  LINK 

00137*0)0750 

ITER: 

IS2 

NP 

/NEXT  POINT 

00140*014754 

DSH 

PCNT 

00141 *000654 

JMP 

COW 

/NEXT  POINT  IF  NOT  DONE 

00142*030737 

LDA 

2.SV2 

00143*000430 

JMP 

PUP 

/UPDATE  ANY  PRESS.  SEGS 

C-106 


00144*  04474  1 

FIX: 

STA 

1  ,  NY 

001  45*025030 

LDA 

1,0,2 

00146*034747 

LDA 

3, FB I T 

00147  *  1  6741  5 

AND# 

3,  l  , SNR 

/SKIP  IF  FLAG  ALREADY  SET 

00150*1 67000 

ADD 

3,  1 

/ADD  IN  MASTER  FIX  FLAG 

001 51 *045000 

STA 

1,0,2 

;PUT  CONTROL  LORD  BACK 

00152* 176400 

SUB 

3,3 

/ALLOW  "INVISIBLE" 

00153  *  055020 

STA 

3,20,2 

; BLOCKS 

00154*055021 

STA 

3,21,2 

J  TO 

00155*055022 

STA 

3,22,2 

; INTERACT 

001  56  *  000655 

JMP 

CONT 

/ KEEP  GOING 

/ROUTINE  TO  FOLLOW  CHAIN 

TO  FIND  CNP:NB> 

00157  *050724 

FIND: 

STA 

2, OLD 

/  CALLING  ADDR 

00160*031000 

LDA 

2,0,2 

5  ADDR  OF  1ST  WORD 

00161 *000407 

JMP 

MID 

001 62 ' 025003 

ROUND: 

LDA 

1,0,2 

00163*1 0641 5 

SUB  # 

0, 1 ,SNR 

/ COMPARE 

00164*001400 

JMP 

0,3 

J  SUCCESS !  ADDR.  IN  AC2 

00165* 145400 

INC 

2,1 

00166*044715 

STA 

1  ,OLD 

/OLD  LINK  ADDR. 

00167*031001 

LDA 

2,1,2 

1  GET  LINK 

00170*151 1  12 

MID: 

MOVL# 

2, 2, SEC 

/ END  OF  CHAIN? 

00171 *001401 

JMP 

1,3 

5  YES .  FAILURE  EXIT 

00172*000770 

JMP 

ROUND 

» 

S ROUTINE  TO  UPDATE  FX,  FY  IN  ANY 

J PRESSURE  SEGMENT  FOR  BLOCK  NB 

00173*021000 

* 

PUP: 

LDA 

0,0,2 

00174*024506 

LDA 

1  ,  PMSK 

00175*123415 

AND# 

1 ,0,SNR 

/QUICK  CHECK  FOR  PRESS. 

00176*002704 

JMP 

0SVRB3 

/NONE  FOR  THIS  BLOCK 

00177* 030006S 

LDA 

2, .PRES 

00200*034710 

GRAPE: 

LDA 

3,  NB 

00201 *151113 

PLUM: 

MOVL# 

2,2, SNC 

00202 ' 0C0403 

JMP 

.+3 

00203*030676 

LDA 

2,  SV2 

00204*002676 

JMP 

@SVRB3 

,’END  OF  PR.  SEG.  LIST 

00205*025000 

LDA 

1,0,2 

;NFN8  THIS  SEG. 

00206*020002- 

LDA 

0,  .MSKR 

00207*123400 

AND 

1,0 

} NB 1  C BLOCK  #> 

00210*1 16415 

SUB# 

0,3, SNR 

/ SAME  BLOCK? 

0021 1 *000403 

JMP 

PRUNE 

J  YES;  UPDATE  FX, FY 

00212*031002 

LDA 

2,2,2 

JNO,  GET  NEXT  LINK 

00213*000766 

JMP 

PLUM 

00214* 106700 

PRUNE: 

SUBS 

0,  1 

/NPl  (EDGE  #> 

00215*050466 

STA 

2  ,  PR2 

J  CURRENT  PR.  LIST  POINTER 

00216*035001 

LDA 

3,  1,2 

/FORCE 

00217*054465 

STA 

3, FORCE 

00220*044465 

STA 

1  , NPREM 

/REMEMBER  1ST  CORNER 

00221 *03430 1 S 

LDA 

3,  .Ml 

00222* 1 17000 

ADD 

0,3 

00223*031400 

LDA 

2,0,3 

/BLOCK  POINTER 

00224*006007$ 

JSR 

§  .LENG 

/GET  LENGTH 

00225*040461 

STA 

0,  L 

00226  *  O06004S 

JSR 

0.PON! 

00227*049460 

STA 

0,  XA 

00230*044460 

STA 

1  ,  YA 

00231 *024454 

LDA 

1 , NPREM 

00232*125400 

INC 

I  ,  1 
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0O233'O2!003 
00234*034002- 
00235  *  1 63433 
00236 • 1 0641 5 
00237 • 1 26403 
00240  ’  0 >360053 
00241 '030446 
00242 ’ 1 12403 
00243 ’ 1 55003 
00244 '044445 
00245*024437 
00246 ' 1 02443 
00247 '151112 
00250' 1 50403 
00251 '073301 
00252 ’ 033434 
00253*073101 
00254 '175112 
00255 ' 1 24400 
00256 ' 044434 
00257 '030432 
00260*023430 
00261 ' 1 12400 
00262*1 55000 
00263*024421 
00264 ' 1 02440 
00265' 1 51 1 12 
00266' 1 53400 
00267 '073331 
00270 • 0334  t  6 
00271 '073101 
00272 '175112 
00273* 124400 
0027 4  *  033407 
00275*045004 
00276 ' 02441  4 
00277*045005 
00300  *031 002 
00301 '000677 
00302  *000403  PMSK: 
00303 ’003000  PR2: 
00304 ' 003000  FORCE: 
00305 '000030  NPReM: 
00306*000030  L: 
00307*000000  XA: 
00310*003003  YA: 
00311 *003000  YB: 
00312*000000  FY: 


LDA  0.0,2 

LDA  3..MSKR 


AND 

3,0  } NC 

SUB  # 

0,1, SNR  5  CHECK  FOR  LAST 

SUB 

1  ,  1 

JSR 

@  .  PON'2 

LDA 

2  ,  XA 

SUB 

0,2  ;(XA-XB> 

MOV 

2,3  JSAVE  FOR  SIGN 

STA 

1  »  YB 

LDA 

1  .FORCE 

SUBO 

0  0 

MOVL# 

2,2, SHC  ; CHECK  SIGN 

NEG 

MUL 

2,2 

LDA 

DIV 

2>L 

MOVL* 

3, 3, SHC  5  RESTORE  SIGN 

NEG 

1,  1 

STA 

1  ,FY 

LDA 

2,YB 

LDA 

0,  YA 

SUB 

0,2  JtYB-YA) 

MOV 

2,3 

LDA 

1  , FORCE 

SUBO 

0,0 

MOVL# 

2,2, SHC 

NEG 

MUL 

2,2 

LDA 

2,L 

DIV 

i  C YB- YA  >  *F/L 

MOVL* 

3, 3, SHC 

NEG 

1,1  JFX 

LOA 

2  ,  PR2 

STA 

1,4,2  JSTORE  F X  IN  LIST 

LDA 

1  ,  FY 

STA 

1,5,2  ;FY  IN  LIST 

LDA 

2,2,2  J  LINK 

JMP 

400 

GRAPE 

0 

0 

0 

0 

0 

0 

0 

0 


CORNER 


•  END 


C-108 


•  T 1 TL  MOT  10 

i ROUT INE  TO  APPLY  LAW  OF  MOTION  TO  ALL  BLOCKS 


.ENT 
•  EXTD 
.  BREL 

00000-00000 1 '  .MOT:  MOT 

00001-000140  .ROT:  140 

00002-000040  .TREC:  40 

.  NREL 

00000'000000  SAVE:  0 

00001  ’0547  77  MOT:  STA 

00002 ‘034001 S  LDA 

00003 ' 0S4547  MOT  1 :  STA 

00004*031400  LDA 

00005 ‘151 0C5  MOV 

00006*002772  JMP 

00007*021014  LDA 

00010*101005  MOV 

00011*000524  JMP 

00012*021000  LDA 

00013*024540  LDA 

00014*107404  AND 

00015*000520  JMP 

00016*021007  LDA 

00017*025005  LDA 

00020*004535  JSR 

00021*045005  STA 

00022  *  050532  STA 

00023*030002-  LDA 

00024*102400  SUB 

00025*135000  MOV 

00026*125112  MOVL# 

00027*124400  NEG 

00030*146512  SUBL# 

00031*000516  JMP 

00032*073101  DIV 

00033*030521  LDA 

00034*021002  LDA 

00035*175112  MOVL# 

00036*000405  JMP 

00037*123023  ADDZ 

00040*000417  JMP 

00041 *011001  ISZ 

00042*000405  JMP 

00043*124400  FLIT:  NEG 

00044*123022  ADDE 

00045 ' 00041 2  JMP 

00046*015001  DSZ 

00047*045020  CHECK:  STA 

00050*041002  STA 

00051 *024501  LDA 

00052*0060035  JSR 

00053*034004$  LDA 

00054*175005  MOV 

00055*006002$  JSR 

00056*000403  JMP 

00057*045020  OK:  STA 

00060*041002  5TA 

J 

00061*021016  NUT: 


•  MOT, .ROT. .TREC 

.Ml j .DISB..RE9X..PFLG 


J  1/TDEL 

3. SAVE 
3.  .Ml 

3. BLOCK 
2.0.3 

2. 2. SNR 
@SAVE 

JEXIT! 

0.14.2 

J  AREA 

0.0. SNR 
SKIP 
0.0.2 

JEERO  AREA 

.  SKIP! 

1  . FMSK 
0.  1  ,SER 
SKIP 

J  TO  DETECT 

"FIXED 

**  FLAG 

0.7.2 

SFXSUM 

1.5.2 

JOLD  X-VEL 

ADDMX 

1.5.2 

2.SV2 

2. .TREC 
0.0 

;new  X-VEL 

1.3 

1.1 .SEC 

;keep  for 

SIGN 

1  .  1 

2.1 .SEC 
FLIP 

J BYPASS  IF 

ANSWER 

WILL  1 

;  INTEGER  DIVIDE 

2.SV2 
0.2.2 
3.3. SEC 

f XC  CLOW) 

FLIT 

J  WAS  NEGATIVE 

1.0. SNC 
OK 

1  .2 

l  INCREMENT 

XC (HIGH) 

CHECK 

1  .  1 

1 .0.SEC 
OK 

1  .2 

; DECREMENT 

XC(HIGH) 

1.20.2 

0.2.2 

1 .BLOCK 

e .REBX 

5RE-CLASSIFY  THIS 

BLOCK 

3. . PFLG 
3. 3. SNR 
P.DISB 
NUT 

1 .20,2 

J  D5LTA-XC 

0,2,2 

JNEto  XC ( LOW ) 

LDA 


0.16.2  ; FYSUM 
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00062 '02501 5 

LDA 

1 , 1 5,2 

;OLD  Y-VEL 

00063*004472 

JSR 

ADDMX 

00064*04501 5 

STA 

1,15,2 

J NEW  Y-VEL 

00065 ' 030002- 

LDA 

2, .TREC 

00066  *  1 02400 

SUB 

0,0 

) CLEAR  HI  PART 

00067  *  1  3SG00 

MOV 

1,3 

JSAVE  FOR  SIGN 

00070* 1251 12 

MOVL# 

1  ,  1  ,ScC 

00371  *  124400 

NEG 

1  ,  1 

00072’ 1 46512 

SU8L# 

2, 1 ,  SHC 

JBYPASS  if  answer  vil 

00073*003451 

JMP 

FLOP 

00074*073101 

DIV 

1  INTEGER  DIVIDE 

00075*030457 

LDA 

2,  SV2 

00076*021004 

LDA 

0,4,2 

J  YC  CLOW ) 

00077*1751 12 

MOVL# 

3 , 3 , SHC 

001 00'000405 

JMP 

FLITS 

00101  *  123023 

ADDH 

1 , 0, SNC 

00102*000417 

JMP 

OKS 

00103*01 1003 

ISH 

3,2 

} INCREMENT  YCCHIGH) 

00104*000405 

JMP 

CHECS 

00105* 124400 

FLITS: 

NEG 

1  ,  1 

00106* 123022 

ADDH 

1 ,0,SZC 

00107*000412 

JMP 

OKS 

001 10*015003 

DSH 

3,2 

1 DECREM ENT  YCCHIGH) 

00111 *045021 

CHECS: 

STA 

1,21,2 

001 12*041004 

STA 

0,4,2 

00113*024437 

LDA 

t .BLOCK 

001 14 '006003S 

JSR 

e.REBX 

iRE-CLASSIFY 

001 15*034004$ 

LDA 

3,  .PFLG 

001 16*175005 

MOV 

3, 3, SNR 

001  1 7  *006002$ 

JSR 

g.DISB 

,-PLOT  JUST  THIS  BLOCK 

00120*000460 

JMP 

CLOT 

00121 *045021 

OKS: 

STA 

1,21,2 

1  DELTA- YC 

00122*041004 

STA 

0,4,2 

J  NEW  YC  CLOW ) 

00123*000455 

1 

1 

CLOT  1  : 

JMP 

CLOT 

JNOW  FOR  MOMENTS 

001 24 ' 021 023 

LDA 

0,23,2 

JX  LOAD 

00125*041007 

STA 

0,7,2 

;INIT.  XF  SUM 

00126*021024 

LDA 

0,24,2 

t Y  LOAD 

00127*025014 

LDA 

1 , 1 4,2 

;GRAVITY  FORCE 

001 30* 1 22400 

SUB 

1  ,0 

00131 *041016 

STA 

0,16,2 

)INIT.  YFSUM 

00132*1 02400 

SUB 

0,0 

00133*04101  7 

STA 

0,17,2 

J  SET  MSUM  TO  0 

00134*000405 

JMP 

PAST 

00135*102400 

SKIP: 

SUB 

0,0 

00136*041007 

STA 

0,7,2 

J  XFSUM  =  0 

00137*041316 

STA 

0,16,2 

JYFSUM=0 

00140*04101 7 

STA 

0,17,2 

;msum=o 

00141 *03441 1 

PAST: 

LDA 

3, BLOCK 

00142* 1 75400 

INC 

3,3 

00143*003640 

JMP 

MOT  1 

00144*030410 

FLOP: 

LDA 

2  ,  SV2 

00145*041021 

STA 

0,21,2 

JSET  DELTA-YC  TO  0 

001 46*000432 

JMP 

CLOT 

00147  *030405 

FLIP: 

LDA 

2  ,  SV2 

001 50*041020 

STA 

0,20,2 

00151 *000710 

JMP 

NUT 

001 52*003030 

BLOCK : 

0 

00153*01 4000 

FMSK : 

1  4030 

J  "F  I XED’ 

’  KASK 

|L 


c-no 


001 54* 00 00 00 

SV2 : 

* 

0 

i 

3  TO  ADD 

AGO  TO 

AC  1  /  WITH  AN  UPPER 

J  L  I  *1 1 1 

SET  TO 

THE  ANSWER  IN  AC1 

001  55*  lOb.'PO 

ADD:-!*: 

MOV  2 

1  >  1 

J CLEAR  CARRY 

001 56’ 1051 13 

MOVE# 

1 > 1 .SEC 

001 57 •000405 

JMP 

A  1 

00160* 101 1 13 

MOVE# 

0/  0  /  SNC 

00161 *000407 

JMP 

POS 

J  BOTH  +  VE 

00162* 107000 

DIF: 

ADD 

0/ 1 

J  BOTH  SIGNS  DIFFERENT 

eoi 63*001 400 

JMP 

0/3 

3  EXIT 

00164*101113 

A  1  5 

MOVL# 

0/0/SNC 

00165*000775 

JMP 

DIF 

3  BOTH  DIF 

00166*1 24400 

NEG 

1/  1 

J  BOTH  - V£ 

00167*1 00440 

NEGO 

0/0 

3 NEGATE  BOTH.  SET  CARRY 

00170*1 07000 

PO  S: 

ADD 

0/  I 

00171 *020406 

LDA 

0/MAX 

00172* 1 06432 

SU82# 

0/ 1 >  SEC 

/LIMIT  MAX  VELOCITY 

00173* 1 05000 

MOV 

0/  1 

00174* 125002 

MOV 

1 / 1 / SEC 

3 FLAG  ? 

00175* 124403 

NEG 

1  /  1 

3  YES/  NEGATE! 

00176*001400 

JMP 

0/3 

1  EXIT 

00177*037777 

MAX: 

37777 

00200* 126400 

CLOT: 

SUB 

1  /  1 

3  CLEAR  LOWER 

00201 *021017 

LDA 

0/17/2 

3MSUM 

00202*031013 

LDA 

2/13/2 

i  I 

00203*1 15000 

MOV 

0/3 

3  SAVE  M  FOR  LATER 

00204* 101112 

MOVL# 

0/ 0/ SEC 

00205* 100400 

NEG 

0/0 

3 A8SCMSUM3 

00206  * l 42432 

SU92# 

2/0/S2C 

iCHECK  FOR  OVERFLOW 

00207* 124001 

COM 

l  »  1  zSKP 

00210*073101 

DI  V 

0021 1  *  125220 

M0V2R 

1  /  1 

3)  .ROT  ERR 

00212*125220 

MOVHR 

1/1 

3  3/8 

00213* 125220 

MOVER 

1  /  1 

3  3 

00214* 175102 

MOVL 

3 / 3/ S  EC 

00215* 124400 

NEG 

1  /  1 

3  RESTORE  SIGN 

00216* 121000 

MOV 

1/0 

00217*030735 

LDA 

2/SV2 

00220*025006 

LDA 

1/6/2 

3  OLD  ALPHA-DOT 

00221 *004734 

JSR 

ADDMX 

00222*045006 

STA 

1/6/2 

J  NEW  ALPHA-DOT 

00223*030001- 

LDA 

2/ .ROT 

00224*102400 

SUB 

0/0 

00225* 1 35000 

MOV 

1/3 

00226* 125112 

MOVL# 

1 / 1 /S2C 

00227  *  1 24400 

NEG 

1  /  I 

00230* 1 46513 

SUBL# 

2/  1 / SNC 

3  CHECK  FOR  UNDERFLOW 

00231 *000410 

JMP 

TREE 

C0232  *030722 

LDA 

2/SV2 

00233*041022 

STA 

0/22/2 

3  EERO  DELTA-ALPHA 

00234*000670 

JMP 

CLOT  1 

3  NO  MORE  TO  DO 

00235*024715 

CL0T2 : 

LDA 

1  /  BLOCK 

00236  *OO6003S 

JSR 

@ • REBX 

00237*000665 

JMP 

CLOT  1 

00240*040000 

TEST: 

4  0000 

00241 *073101 

TREE: 

DI  V 

00242*030712 

LDA 

2/SV2 

00243’ 175102 

MOVL 

3 / 3 / S  EC 

00244* 124400 

NEG 

1  /  1 

c-ni 


00245 ' 02  1012 

LDA 

0> 1 2.2 

J ALPHA  COLD) 

00246 ' 123000 

ADD 

1 .0 

1  ADD  IN  D-pLPHA 

00247 '125120 

M0V2L 

I  ,  1 

I  MAKE  UP  TOTAL  SHIFT 

00250' 125120 

M0V2L 

1  ,  1 

;  TO  8  BITS 

00251 ' 125120 

M0V2L 

1  >  1 

00252 '045022 

STA 

1  ,22,2 

; DELTA-ALPHA 

00253 '040514 

STA 

S.SION 

JE.EEP  SIGN  FOR  LATER 

00254 '105102 

MOVL 

0,  1  ,S2C 

J-VE?  (GARBAGE  IN'ACl) 

00255 ' 1 00400 

NEG 

0,0 

;yes  CC  IS  SET) 

00256*024762 

LDA 

1  , TEST 

00257 ' 122513 

SUBL# 

1  ,0,SNC 

)  IS  ALPH>=  1 /64  ? 

00260 '000405 

JMP 

CHAN 

)  YES •  INCH.  COS  4  SIN 

00261 ' 101002 

MOV 

3,  0,S2C 

;WAS  SIGN  -VE? 

00262 ' 1 00400 

NEG 

0,0 

)  YES  .  RESTORE  IT 

00263 '041 01 2 

STA 

0,12,2 

S  ALPHA  (NE  l*  ) 

00264*000640 

JMP 

CLOT  1 

^FINISHED! 

00265* 122462 

CHANS 

SU8C 

1 ,0,S2C 

; SUBTRACT  ALPHCMAX) 

00266 ' 1 00400 

NEG 

0,0 

00267 '041012 

STA 

0,12,2 

JALPHACNF.W) 

00270*024500 

LDA 

1  , AM AX 

00271 *031011 

LDA 

2,11,2 

JSIN 

00272* 102400 

SUB 

0,0 

00273 '073301 

MUL 

JMULT.  BY  AMAX  Cl/64) 

00274* 1251 12 

MOVL# 

1,1, SEC 

00275' 101400 

INC 

0,0 

J ROUND  UP 

00276*030656 

LDA 

2,  SV2 

J(SIN*AMAX  NOW  IN  CAO) 

00277*025000 

LDA 

1,0,2 

JSIN  FLAG 

00300*044471 

STA 

1  , SFLAG 

00301  *  125100 

MOVL 

1,1 

1  PUT  FLAG  IN  CARRY 

00302*034465 

LDA 

3, SIGN 

JDC ALPHA)  FLAG 

00303*1751 12 

MOVL# 

3, 3, S2C 

00304* 175060 

MOVC 

3,3 

00305*1251 12 

MOVL# 

1 , 1 ,S2C 

;  IS  COS  FLAG  SET? 

00306* 125060 

MOVC 

1  ,  1 

iYES.  COMP.  CARRY 

00307*035010 

LDA 

3,10,2 

;OLD  COS 

00310*125003 

MOV 

1,1, SNC 

; SAME  SIGNS,  C  4  DCC)? 

0031 1 '000404 

JMP 

CARO 

JYES.  SUBTRACT! 

00312*1 17022 

ADD2 

0,3, SEC 

JCOS+DCCOS) 

00313* 176000 

ADC 

3,3 

J SET  TO  MAX  IF  OVERFLOW 

00314*00041 3 

JMP 

PRUNE 

00315* 116422 

CARO: 

SUB2 

0, 3, S2C 

J  COS-D  C  COS ) 

00316*00041 1 

JMP 

PRUNE 

00317  *  174400 

NEG 

3,3 

00320*025000 

LDA 

1,0,2 

00321 *125100 

MOVL 

1  ,  1 

00322* 125100 

MOVL 

1,1 

00323*125060 

MOVC 

1  ,  1 

JO0MPLEMENT  COS  FLAG 

00324* 125200 

MOVR 

1,1 

00325*1 25200 

MOVR 

1  ,  1 

00326*045000 

STA 

1 ,0,2 

l  LffDATE  CONTROL  WORD 

00327*025010 

PRUNES 

LDA 

1,10,2 

JOED  COS 

00330*055010 

STA 

3,10,2 

;tvaw  cos 

00331 *030437 

LDA 

2, AMAX 

00332* 1 02400 

SUB 

0,0 

00333*073301 

MUL 

00334* 1251 12 

MOVL# 

1,1, SEC 

00335*101400 

INC 

0,0 

I  HffUND  UP 

00336*024433 

LDA 

1  ,  SFLAG 

;SHN  FLAG 

00337  *  125100 

MOVL 

1  ,  1 

; BECOMES  COS  FLAG 

00340* 125100 

MOVL 

l  ,  l 

JNSLM  IN  CARY 

C-112 


00341 ’034436 

LDA 

3, SIGN 

J  D  ( ALPHA )  FLAG 

00342’ I 751 12 

MOVL# 

3.3.S2C 

00343’ 175060 

MOVC 

3s  3 

00344 ’ 0306 1 0 

LDA 

2#  S  V2 

00345*025000 

LDA 

1.0.2 

i NEW  CONTROL  WORD 

00346 ’1251 12 

MOVL# 

i .  i .sac 

1  IS  SIN  FLAG  SET? 

00347 ’ 125060 

MOVC 

i .  i 

i YES •  COMPLEMENT  C 

003  50  *03501  1 

LDA 

3.11.2 

JOLD  SIN 

00351 ' 125032 

MOV 

i . i .sac 

S SAME  SIGNS.  S  «  DCS) 

00352 ’ 000404 

JMP 

SARO 

J  NO .  SUBTRACT! 

00353 ' 1 17022 

ADDH 

0.3. sac 

i SI N+D ( SIN) 

00354*176030 

ADC 

3.3 

i OVERFLOW 

00355*000410 

JMP 

PLUM 

00356* 1 16422 

SARO: 

SUB3 

0.3. sac 

j  SIN  -  D(SIN) 

00357*000406 

JMP 

PLUM 

:N0  SIGN  CHANGE 

00360* 174400 

NEG 

3.3 

00361  *  125100 

MOVL 

1  .  1 

00362* 125060 

MOVC 

!  .  1 

I  COMPLEMENT  SIN  FLAG 

00363* 125200 

MOVR 

1.1 

00364*045000 

ST  A 

1.0.2 

f UPDATE  CONTROL  WORD 

00365*05501 1 

PLUM: 

ST  A 

3.11.2 

;new  sin 

00366*000647 

JMP 

CL0T2 

J  ROTATION  DONE 

00367*030000 

SIGN: 

0 

00370*001003 

AMAX: 

1  000 

}  1/128 

(DEC) 

0037 1 *000000 

SFLAG: 

0 

•  END 


•T I TL  DISPL 

70  DISPLAY  ALL  BLOCKS,  CENTROIDS  ON 
THE  SCREEN,  OR  ON  PAPER 

JSR  e.DISS  ...  SCREEN  ENTRY 

JSR  3.D1SP  ...  PAPER  ENTRY 

JSR  e • D I  SB  ...  PLOT  SINGLE  BLOCK 
ON  THE  SCREEN 
CAC2:  BLOCK  POINTER) 

JSR  e.LPLS  ...  TO  PLOT  LOAD  VECTORS 
ON  SCREEN 

•ENT  .DISS, .DISP, .D1SB, .NVEC, . LPLS 
. EXTD  • PLT  S , . RLNC , . PON  I , .P0N2, .Ml , . PRM 
•EXTD  -MSKR, .NUM, .SCAL, .LEAP, . LENG 
•  EXTD  .  IPRN, .MESS,.ALPH,.UD,.AXIS 
•EXTD  .PRES, . IPRN, .NVEC 
• EXTN  FEET 
.HREL 


00000-000000 

.PLOT: 

0 

00001-000100  * 

•DISS: 

DISS 

00002-000056* 

•DISP: 

DISP 

00003-000053* 

•DI S3 : 

D I  SB 

i SINGLE  BLOCK  ENTRY 

00004-00027  1  * 

.LPLS: 

LPLS 

00005-000000 

•NVEC: 

0 

•  NREL 

) FLAG  TO  PRINT  LOADS 

00000*000001 

DRIVE: 

l 

000012 

.  RDX 

1  0 

JTO  plot  axes.. 

•  • 

00001 *054444 

AXES: 

STA 

3, AXSAV 

00002*020444 

LDA 

0  ,  A  1 

00003 ' 024444 

LDA 

1  ,A2 

00004*006001$ 

JSR 

e.PLTS 

00005*000000 

0 

00006*006016$ 

JSR 

e.ALPH 

00007*020017$ 

LDA 

0,  .UD 

00010*101005 

MOV 

0,0, SNR 

0001 1 *002434 

JMP 

0AXSAV 

00012*00601 4S 

JSR 

@ .IPRN 

00013*000004 

4 

00014*00601 5$ 

JSR 

e  .MESS 

00015*177777 

FEET 

00016*000073 

59 

00017*001356 

7  50 

00020*020430 

LDA 

0 ,  A3 

00021 *024430 

LDA 

1  ,  A4 

00022*006001 S 

JSR 

e.PLTS 

00023 ' 000000 

0 

00024*0060 1 6S 

JSR 

e.ALPH 

00025*02001 7S 

LDA 

0,  .UD 

00026*00601 4$ 

JSR 

@ .IPRN 

00027*000004 

4 

00030*00601 SS 

JSR 

e .MESS 

00031 *00001 5* 

FEET 

00032*001415 

781 

00033*000043 

35 

00034*0060205 

JSR 

e.AXis 

C  - 1 1 4 


00035 ' 00 1 41 3 

7  7S 

00036*000001 

1 

00037 •O0O00I 

1 

00040*  006  020? 

JSR 

P .AXIS 

000  4  1  *  1 76366 

-773 

0004? ’000001 

1 

00043  *00000 1 

1 

00044  *  00240 1 

Jmp 

PAXSAV 

00045*000003  AXSAV: 

0 

00046*000003  A  1 : 

3 

00047*001356  A2: 

750 

00050*001265  A3: 

693 

00051 *000043  A4: 

35 

000010 

i 

•  RDX 

8 

j 

00052*000273*  DIR: 

D  I  RPC 

00053'020001 S  D I  S3 : 

LDA 

0/ .PLTS 

00054  *  040000- 

STA 

0/  .PLOT 

00055*000465 

JMP 

SING 

00056*054524  DISP: 

STA 

3/SV3 

00057*020721  TRY: 

LDA 

0  .  DR  I  V  E 

00060*062074 

DOB 

0/LINC 

00061 *020460 

LDA 

0  /  BLK 

00062*024455 

LDA 

1  zNBLK 

00063*030455 

LDA 

2,  CORE 

00064*050000- 

STA 

2  > • PLOT 

00065 ‘006002S 

JSR 

P.RLNC 

J  READ  IN  PAPER  PLOT  ROUTINE 

00066*125005 

MOV 

1  /  1  /SNR 

00067*000403 

JMP 

.+3 

00070*063077 

HALT 

iTAPE  ERROR 

0007  t  *000766 

JMP 

TRY 

00072*020444 

LDA 

0/EFP 

00073*040441 

STA 

0  /  EER 

00074*020012$ 

LDA 

0/ -LPAP 

J LOADS  NEEDED? 

00075’ 101 004 

MOV 

0 /  0  /  S  c  R 

00076*006754 

JSR 

PDIR 

J  YES 

00077*000407 

JMP 

SUN 

00100*020001$  DISS: 

LDA 

0. -PLTS 

00101 *040000- 

STA 

0.  .PLOT 

J SCREEN-PLOT  POINTER 

00102*020433 

LDA 

0/FFS 

00103*040431 

STA 

0/  EFR 

00104*054476 

STA 

3/SV3 

00105*004674 

JSR 

AXES 

i PLOT  AXES  ON  SCREEN  ONLY 

00106*034005$  SUN: 

LDA 

3.  .Ml 

00107*054472  RAIN: 

STA 

3/RPNT 

001 10*031400 

LDA 

2/0.3 

001 11*1 51005 

MOV 

2/2. SNR 

001 12*000414 

JMP 

FINAL 

J  NO  MORE  BLOCKS 

00113*021014 

LDA 

0/14.2 

}  AREA 

00114* 101005 

MOV 

0 / 0 / SNR 

J  ZERO? 

00115*000406 

JMP 

W  IND 

J  YES /  SKIP  THIS  BLOCK 

001 16*021000 

LDA 

0/0/2 

001 17*024505 

LDA 

I  zEMSK 

00120*123414 

AND  f 

1  /  0 / S  cR 

JEIXED  BLOCK? 

00121 *006413 

JSR 

@FFR 

I  YES/  PRINT  AN  *'r  *' 

00122*004420 

JSR 

SING 

J PLOT  THIS  BLOCK 

00123*034456  WIND: 

LDA 

3.BPNT 

00124* 175400 

INC 

3/3 

00125*000762 

JMP 

RAIN 

A 


C-115 


00126* 1 024O0 

FINAL: 

SUB 

0,0 

00127  *  126400 

SUB 

1  ,  1 

00130*006330- 

JSR 

0 • PLOT 

t RESET  BEAM/PEN  TO  LO^ER 

001 31  *  000030 

0 

J  LEFT-HAND  CORNER 

00132*006016? 

JSR 

» .ALPH 

00133  *032447 

JMP 

@SV3 

;EXIT 

03134  *  003330 

FrR  : 

0 

031  35*000237  * 

FFS: 

FF 

00136*03 3 225* 

FFP: 

LETT 

00137  *030331 

NBLX  : 

1 

00 1 40  *  030  440 

CORE  : 

440 

00141 *000555 

BLK : 

555 

00142*054435 

% 

SING: 

STA 

3,  SB3 

iROUTINE  TO  PLOT  A  BLOCK 

00143*021331 

LDA 

0,  I  >2 

00144*025033 

LDA 

1 ,3,2 

00145*036030- 

JSR 

e.PLOT 

00146*177777 

-l 

00147*021 000 

LDA 

0,0,2 

001 50  *  024007 S 

LDA 

1 , .MSKR 

00151  *  107  400 

AND 

0,  1 

JNUMBER  OF  POINTS 

001 52  *  044426 

STA 

1  , NPNTS 

00153*1 26400 

SUB 

1  ,  1 

001 54*044427 

STA 

1  ,NP 

001 55  *  006003S 

JSR 

@  .POM 

;get  x,y  for  first  point 

001 56*040426 

STA 

0,X0 

j remember  them  for 

001 57  *044426 

STA 

1,Y0 

i  LAST  line. 

00160*036000- 

JSR 

e.PLOT 

jplot  a  point 

00161 *000000 

0 

J8EAM  OFF/PEN  UP 

00162*000404 

JMP 

HAIL 

00 1 63 ' O06O04S 

FOG: 

JSR 

@ .  P0N2 

J  2ND,  QUICK  ENTRY 

00164*036000- 

JSR 

@  •  PLOT 

00165*000001 

I 

IBEAM  ON  /  PEN  DOUN 

00166*010415 

hail: 

I  S2 

NP 

00167  *02441 4 

LDA 

1  ,  NP 

00170*014410 

DSc 

NPNTS 

00171 *000772 

JMP 

FOG 

JHAVEN’T  REACHED  LAST  POINT 

00172*020412 

LDA 

0  ,  X0 

JGET  FIRST  POINT  BACK 

00173*024412 

LDA 

1  ,Y0 

00174*006000- 

JSR 

e.PLOT 

iPLOT  IT 

00175*000001 

1 

00176*002401 

• 

JMP 

6S33 

;exit 

00177*000000 

> 

SB3 : 

0 

00200  *  000000 

NPNTS: 

0 

00201 *000030 

BPNT : 

0 

00202*000000 

SV3 : 

0 

00203*000030 

NP: 

0 

00204*000000 

X0: 

0 

00205*000000 

Y0 : 

0 

00206*000030 

CSV3 : 

0 

J TO  PRINT  **F** 

ON  FIXED  1 

3LBCKS 

00207*054777 

FF: 

STA 

3  ,  CSV3 

00210*021001 

LDA 

0,1,2 

0021 1 *025003 

LDA 

1,3,2 

00212*03441 l 

LDA 

3, FIVE 

00213* 163000 

ADD 

3,0 

00214*167000 

ADD 

3,1 

00215*006000- 

JSR 

e.PLOT 

J  BET  BEAM  POSITIONED 

00216*000000 

0 

1 


C-116 


0021 7  *00601 6S 

JSR 

e .ALPH 

J ALPHA 

00220 'O06006S 

JSR 

e  *prni 

1PRINT 

00221 *000106 

**F 

00222*002764 

JMP 

6CSV3 

00223*000005 

FIVE: 

5 

00224 '01 4000 

FMSK: 

14000 

JTO  PLOT  A  LETTER  ON  PAPER 

00225*054432 

LETT: 

STA 

3/SNOT 

00226*050433 

STA 

2/SV2 

00227*030433 

LDA 

2/POINT 

00230  *  1 02400 

SUB 

0/0 

00231 *04041 7 

STA 

0/MOOE 

00232*021000 

PLOOP: 

LDA 

0/0/2 

S (Xl Y> 

00233*105305 

MOVS 

0/  1  /SNR 

00234*000421 

JMP 

END 

00235*034007$ 

LDA 

3/  .MSKR 

00236* 167400 

AND 

3/  1 

J  Y 

00237*163400 

AND 

3/0 

JX 

00240*1 51400 

INC 

2/2 

00241 *050417 

STA 

2/IT2 

00242*030417 

LDA 

2/SV2 

00243*035001 

LDA 

3,  1  ,2 

IXG 

00244*163000 

ADD 

3/0 

JXP 

00245*035003 

LOA 

3»3/2 

/  YG 

00246  *  167000 

ADD 

3/  1 

1  YP 

00247  *006000- 

JSR 

e.PLOT 

00250*000000 

MODE: 

0 

00251  *  1 02520 

SUB2L 

0/0 

00252*040776 

STA 

O/MODE 

00253*030405 

LDA 

2/IT2 

00254*000756 

JMP 

PLOOP 

00255*030404 

END: 

LDA 

2/SV2 

00256*002401 

JMP 

0SNOT 

00257*000000  SNOT:  0 

00260*000000  IT2 :  0 

00261*000000  SV2:  0 

00262*000263*  POINT:  .+1 

00263*007012  7012  jLETTER  **F*' 

00264*007005  7005 

00265*002405  2405 

00266 ' 005005  5005 

00267*005010  5010 

00270*000000  0 

I  TO  PLOT  LOAD  VECTORS 
00271*020001$  LPLS:  LDA  0/.PLT5 

00272*040000-  STA  0,  . PLOT 

00273*054572  DIREC:  STA  3/RVEC 

00274*034005$  LDA  3* .Ml 

0027  5  *  0200 1 0S  LDA  0, •NUM 

00276*043563  STA  0/KM 

00277*054563  STA  3/PNT 

00300*031400  REPT:  LDA  2/0/3 

00301*021014  LDA  0/14,2 

00302*101005  MOV  0/0/SNR 

00303*000463  JMP  TRIP  ,*SKIP  ERASED  BLOCK 

00304*021001  LDA  0/1,2  ;XC 

00305*025003  LDA  1/3,2  ItC 

00306*006000-  JSR  0.PLOT 

00307*000000  0 

003 1 0  *  02501 4  LDA 


1/14*2  iVElGHT 


c-n  7 


0331 l ' 044562 

STA 

1  /WW 

Vr-  11/ 

003 1 2  * 05O50 1 

STA 

2,AC2 

00313*00601  IS 

JSR 

8  .SCAL 

00314*030547 

LDA 

2.AC2 

00315*021001 

LDA 

0^1/2 

o 

X 

00316*035003 

LDA 

3/3/2 

nc 

00317  *  1 36400 

SUB 

1/3 

00320* 165000 

MOV 

3/1 

00321 *006000- 

JSR 

8  .PLOT 

00322*000001 

1 

00323  *  0060 1 6S 

JSR 

8 .ALPH 

00324*020547 

LDA 

0/  WW 

00325*00601 4S 

JSR 

8  .  IPRN 

00326*000004 

4 

00327*030534 

LDA 

2/AC2 

00330*021001 

LDA 

0/1/2 

JCENTROID  again 

00331 *025003 

LDA 

1/3/2 

00332*006000- 

JSR 

8  .PLOT 

00333*000000 

0 

00334*025023 

LDA 

1  /  23 / 2 

JX  LOAD 

00335*044536 

STA 

1  z  WW 

00336*00601  IS 

JSR 

8. SCAL 

JSCALE  IT 

00337  *030524 

LDA 

2/AC2 

00340*021001 

LDA 

0/1/2 

JXC 

00341  *  1 07000 

ADD 

0/  1 

00342*044522 

STA 

1  /  XVEC 

00343*025024 

LDA 

1  /  24/ 2 

;y  LOAD 

00344*044530 

STA 

1/VV 

00345*00601 1 S 

JSR 

8. SCAL 

00346*03051 5 

LDA 

2/AC2 

00347*021003 

LDA 

0/3/2 

JVC 

00350’ 1 07000 

ADD 

0/  1 

00351 *020513 

LDA 

0/XVEC 

jvecTor  now  in  ac0;aci 

00352*006000- 

JSR 

8. PLOT 

00353*000001 

1 

00354*020005- 

i 

LDA 

0/ .NVEC 

i .NVEC  IS  THE  FLAG  TO  PLOT 

00355* 101005 

MOV 

0/0/SNR 

;THE  MAG.  OF  APPLIED  LOADS 

00356*000410 

JMP 

TRIP 

;0  MEANS  NO  PLOT 

00357*0060165 

i 

JSR 

8  .ALPH 

00360*020513 

LDA 

0/WW 

00361 ' 0060 1 4S 

JSR 

8.  IPRN 

00362*000004 

4 

00363*02051 1 

LDA 

0/VV 

00364*0060145 

JSR 

8.  IPRN 

00365*000004 

4 

00366*010474 

TRIP 

:  IS2 

PNT 

00367*034473 

LDA 

3/PNT 

00370*014471 

DS2 

KNT 

00371 *000707 

JMP 

rept 

I 

1  TO 

PRINT  JOINT 

pressures 

00372*0300215 

l 

LDA 

2/  .PRES 

00373*1 51112 

PLUM 

:  MOVL* 

2/2/S2C 

00374*00247  1 

JMP 

8RVEC 

JEXIT 

00375*025030 

LDA 

1  /  0/  2 

J  CONTROL  WORD 

00376*020007$ 

LDA 

0/  .M5KR 

00377*050467 

STA 

2/PR2 

IP 


00400’ 123400 

AND 

00431  ’106730 

SUBS 

00402 ’044465 

STA 

004  3  3’ 0340  >'55 

LDA 

00404' 1 17000 

ADD 

03405 '03 1 4C0 

LDA 

00436 ' 03601 3S 

J  SR 

00407 '040451 

STA 

0O410’021014 

LDA 

0041 1 ’ 101005 

MOV 

004 1 2 ’000442 

JMP 

00413" O06003S 

JSR 

0041 4 ’040454 

STA 

0041 5*044454 

STA 

004 1 6 1 02445 1 

LDA 

03417 ’ 1 25400 

INC 

00420*021000 

LDA 

00421  ' 034007  S 

LDA 

00422’ 1 63400 

AND 

00423 ’ 1 06415 

SUB# 

00424* 126400 

SUB 

00425 ’006004S 

JSR 

00426*034442 

LDA 

00427 ’ 1 63220 

ADDER 

00433*034441 

LDA 

00431  *  167220 

ADDER 

00432 ’034440 

LDA 

03433 ' 1 62430 

SUB 

00434* 1 66400 

SUB 

00435*0060015 

JSR 

00436 ’ 000300 

0 

00437 ’00601 6S 

JSR 

00443 ' 0O6O06S 

JSR 

00441 *000052 

*•# 

00442*330424 

LDA 

00443 ' 02500 1 

LDA 

00444 ' 1 02440 

SUBO 

00445*030412 

LDA 

00446*073301 

MUL 

00447  *03041  1 

LDA 

00450 "073101 

DIV 

00451 *121000 

MOV 

00452*3060145 

JSR 

00453*000005 

5 

00454*030412 

FRED: 

LDA 

00455*031032 

LDA 

0045. *0007 1 5 

JMP 

000012 

.  RDX 

00457*3001 75 

NI25: 

125 

000010 

.RDX 

00460*000003 

LENG: 

0 

00461 *000000 

KNT: 

0 

00462*000000 

PNT: 

0 

00463*000000 

AC2 ; 

0 

00*64*000000 

XVEC: 

0 

00465*000000 

RVEC: 

0 

00466*030030 

PR2 : 

0 

00467*000000 

NPREM : 

0 

00470*000030 

XAA : 

0 

00471 *000000 

YAA: 

0 

1*0  J  M3 

0,1  JNP 

1  ,NPREM 
3 ,  .Ml 
C>3 

?>0j3  J  BLOCK  POINTER 

@  •  LENG 

0,!.ENG 

0,14,2 

0  , 0  , SNR 

FRED  ,'SKIP  ERASED  BLOCK 

@ .PON1 
0,XAA 
1  .  YAA 

1 , NPREM 
1  >  1 

0,0*2  I  CONTROL  WD 

3, .MSKR 
3,0  JNC 

0,1, SNR  iCHECK  FOR  LAST  CORNER 

1  ,  I 

@ .P0N2 
3,XAA 

3,0  MXA  +  XB>/2 

3,  YAA 

3,1  1  (YA+-YB1/2 

3,NN5 

3,0 

3,  1 

e.PLTS 

e.ALPH 
e .PRN1 

2,  PR2 

1.1.2  ;force 

0,0 

2,N 1 25 
2,LENG 
1,0 

e.iPRN 

2,PR2 

2.2.2  J1LINK 
PLUM 

10 

8 


00472*000005  N'N5 :  5 

0047 3' 000000  UW: 

00474* 000000  W ; 

•  END 


Q  <3 
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•  T  1  TL  CONTR 

{DYNAMIC  I  T  E  RAT  I  ON  CONTROL  ROUTINE 

•  ENT  COMR*  •  PFLG *  •  C  l  00 >  .VEC*  .LPAP*  .UREP 

.  EXTD  .OVL* .GETT* .DISS* -MOT  *  .CURS*  .PRN1  *  .HITC 


•  FXTD 

.  PLT  S  *  .PAGE*  .ALLS*  .FORD*  -Ml  *  .NUM*  .CPM 

•  EXTD 

•  DI SP*  *  SCAL* • LFLS  * . VFAC.MU* . RLNC  » .UINP 

•  EXTD 

•  R  E  B  r  * . EMPT  » .P0N1 * .P0N2* . MSKR* -M3* .MS 

.EXTD 

•  INP*  .HITS*  . PP.N2*  .  ALPH*  .TYP*  .LENC-*  .MESS 

.EXTD 

.  PSEG*  .DI  SB*  •  1 PRN  *  .  READ*  .  v.  R I  T  *  .STEP*  .  TPN 

•  EXTD 

•LODE* • DCM* .MOVE* .KSET* .KET* .TIME 

.  EXTN 
•  ZREL 

OPTIN 

00000-000000 

•LPAP: 

0 

i HARD  COPY  LOAD-PLOT  FLAG 

00001  -00300.0 

•  V  EC: 

0 

*  VECTOR  PLOT  FLAG  U=FLOT*  0=DON*T> 

000-12-000000 

•  PFLG  s 

0 

00003-000 1 00 

•  Cl  00: 

1  00 

00O04-O00023 

.UREP: 

23 

♦  NREL 

.'UPDATE  FREQUENCY 

00000*000000 

UCNT : 

0 

» 

* - MAIN  CALCULATION  CYCLE - 

00001 *020004- 

> 

GRUNT: 

LDA 

0*.  .UREP 

0000?  *0407  7  6 

STA 

0*UCNT 

00003*0060042 

DYN: 

JSR 

A.  MOT  *  LA lv  OF  MOTION 

00004*0060575 

JSR 

e.KET  »K.E. ROUTINE 

OOO05 ' 00601 3S 

JSR 

@ .FORD  ; FORCE/DISPLACEMENT  LAX 

00006 ' 006051 S 

JSR 

0.STEP  !  INCREMENT  CYCLE  COUNTER 

00007 ' 006354S 

JSR 

A. DCM  *  DI SP  MACHINE 

00010*063710 

SKPDr 

TTI 

0001 1 *004407 

JSR 

OUT  *  KEY  HAS  BEEN  HIT 

00012  *01  4766 

DSZ 

UCNT 

COO  1 3 ' 00077 0 

JMP 

DYN 

00014  *  00601 2S 

JSR 

6.ALL3  *  UPDATE  CONTACT  LIST 

00015*000764 

JMP 

GRUNT 

> 


00016*000257  * 

KT3: 

RET3 

000 17*1 00257  * 

RTT3 : 

6RET3 

00020*056776 

OUT: 

STA 

3  *  0RT3 

00021 *006040? 

JSR 

e.ALPH 

00022 ' 06051 0 

DIAS 

0*  TTI 

;get  key  character 

00023*030426 

LDA 

2*  POINT 

.POINTER  TO  KEY  LIST 

00024*000403 

JMP 

SEEK 

OO025  *  151400 

NEXT: 

INC 

2*2 

00026  * 151400 

INC 

2*2 

00027  *  025300 

SEEK: 

LDA 

1*0*2 

00030  *  12501 5 

MOV# 

l  ,  l  *  SNR 

J CHECK  FOR  LIST  END 

00031 *002766 

JMP 

@RTT3 

.CHARACTER  NOT  FOUND 

00032*03441 3 

LDA 

3  *  MSK 

J RIGHT  7  BITS 

00033  *  163400 

AND 

3*0 

00034  *  1 37  400 

AND 

1*3 

J JUST  CHARACTER  ALONE 

00035  *  1 624  1 4 

SUB# 

3  *  0  *  S2R 

00036 *000767 

JMP 

NEXT 

;not  this  one 

00037 *166405 

SUB 

3* 1  *  SNR 

;found  it*  get  flag  in  aci 

0.0040 ' 0,0300  1 

JMP 

e  1*2 

i GO  TO  APPROPRIATE  ROUTINE 

00041  *034407 

LDA 

3. STATU 

J STATUS  FLAG 

00042  *  I  654  1  5 

SUB# 

3*1*  SNR 

;IS  PERMISSION  GRANTED? 

00043  *003001 

JMP 

ei  *2 

{YES.  GO  TO  ROUTINE 

C- 121 
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00132*0207 1 4 

GO: 

LD-- 

0,  RF  LAG 

00133' 0407 1 5 

STA 

0/ STATU  J "RUN"  STATUS 

001 34  *000645 

JMP 

G  K  J  N  T 

001 35 ' 06047  7 

PHASE : 

0  ; CANT  LEAVE  W /0-UP 

00 136' 101 122 

NOVEL 

0, o,sec 

00  1  37  *  CK10765 

JMP 

STOP 

001 40*00601 1 5 

J^P 

P  .  PAGE 

00141 ’1 02520 

SUTEL 

0/0 

001 42  *  00600 1 ? 

JSk 

P.OVL  ; OVERLAY  *  1 

00143*063077 

HALT 

/TAPE  ERROR 

00144*  000775 

JMP 

.-3 

00145* O02O55S 

MOVM : 

J--1P 

P  .  MOVE 

001 46' 063077 

BOLT: 

HALT 

00147*  000755 

JMP 

STOP 

00150*0060605 

TIME: 

JSR 

e .t ime 

00151  *  006056S 

RESET: 

JSR 

P.RSET 

00152*00601  IS 

JSR 

P • PAGE 

001 53*0060525 

JSR 

P.TPRN 

001 54*0O6003S 

JSR 

O-DISS 

00155*002502 

JMP 

PRET3 

001  56*00601  IS 

NOPLT : 

JSR 

0 » PAGE 

00157*1 02520 

SUB5L 

0  9  0 

00160*040002- 

STA 

0/.PFLG  ; SUPPRESS  PLOTTING 

00161 *002476 

JMP 

PRE73 

00162* 102400 

ACT  IV; 

SUB 

0/0 

001 63  *  040002- 

STA 

0/.PFLG  7  RE- ACT  I VATE  PLOTTING 

001  64  *  0060525 

JSR 

P.TPRN  ;WRITE  NO.  OF  ITERATIONS 

00165*002472 

JMP 

PRET3 

001 66 ' 00621  IS 

DSPLY: 

JSR 

6 . PAGE  JERASE  SCREEN 

00167 ' OQ6052S 

JSR 

P.TPRN  /WRITE  NO.  OF  ITERATIONS 

00170'006003S 

JSR 

P.DISS  J  RE -DRAW  SYSTEM 

00171 *002466 

JMP 

PRET3 

00172*0300145 

HERO: 

LDA 

2»  .Ml 

00173*0240155 

LDA 

1 / .NUM 

00174* 124400 

NEG 

1/1 

001 75  *  1 02400 

SUB 

0/0 

00176*035000 

ITER: 

LUA 

3/0/2 

00177  *041405 

STA 

0,5/3  fX-VF.L 

00200*041 406 

STA 

0/6/3  7ALPHA-D0T 

00201 *041415 

STA 

0/15/3  / Y- VEL 

00202  *  1 51400 

INC 

2/2 

00203* 125404 

INC 

1  /  1  /SHR 

00204 ' 0007 72 

JMP 

iter 

0R205 ' 00 600 6S 

JSR 

P .PRN1 

00206*000007 

7 

fRING  BELL 

00207  *002450 

1 - - 

JMP 

PRET3 

i  INPUT  ROUTINE--  FR I CT  ION  ,  LOADS  »  UNITS  &  OPTIONS 
; 

00210’006043S  INPUT:  JSR  P.MESS 

002 II '001617'  INMS 


00?  1  ? 
00?  1  3 
002  1  4 
POP  [  5 
0  021  6 
OO?  17 
On?  op 

002? 1 1 
nr^o^o  < 

or.?  V3  « 
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O  0 1  ?  i  ? 

0"6*\"*?F  DOVER : 

6  5  0. 

J  5 

0 . GET  T 

, :  ?  4  4  ?  6 

LDA 

1  ,  Cr-G.-O 

1 0641 5 

sltj# 

C,  1  ,i?.H 

OOp/iAO 

JMP 

0.-FT3 

■?44?4 

LDi. 

1  ,  CFr.F 

1  •_ .  ; 

SUM  i 

,  !  ,  ..  r. 

0  0 4  0  3 

JMP 

•  +  3 

OOP. '35? 

JSR 

e .  Inp 

002433 

JMP 

@RFT3 

02/54?  fl 

LDA 

1  ,  C  F  F.  U 

106414 

SUB  * 

0, 1 ,SsR 

03C4O3 

JMP 

.  +  3 

0023  1  ’00?/, ?6 
0c?3?  ’  c?44  j  /, 
00233  ’  106  A1!  4 
Of.'? 3 4  •  0f!C’/iO3 
00235  ’  OO6/1I  4 
00236 *0024? l 
00237  ■  0?/i 4  1  0 
002/50*  106/11  5 
002/51  ’000407 
0024? '00075? 
00243*00001 5 


ORGF.T: 


00260 ’ 1 0?5?0 
0026  I  ’ 04000 1  - 
B0262 ’ OO 6004 S 
00263*006057? 
00264*00601 3? 
00265*006051 S 

00266  *  1  0?40,o 
00267  *  04000 1  - 
00270*002767 


SU32L 

ST.4 

JSR 

JSR 

JSR 

JSR 

SUR 

STA 

JMP 


S  GO  TO  INPUT  FRICTION 


JSR 

O.UINP 

J  IF 

Pr  E  i  3 

Lfir. 

1  ,  ( 1 1  t  L 

SUB* 

L,  1  ,S  =  ;t 

J*-*P 

•  +3 

JSR 

eLopo 

J-1P 

PRET3 

LDA 

1 ,CMRO 

SUB* 

0, 1 ,SNR 

JMP 

&  0  P  T  N  N 

JMP 

1  5 

DOVER 

JGO  TO  INPUT  LOADS 


i  DO  IT  OVER 


00244  *000 1 06  CHRP: 

**F 

00245’ 030 1 ?5  CHRU: 

■*u 

00246  *  C  00 1 l 4  CHRL: 

"L 

00247*000)17  CHPO: 

"0 

00250*177777  OPT  NN ; 

OPT  IN 

00251 '001121*  LODO: 

ONLY 

: hard : 

READS 

0 

* 

MGVEL 

0,0,  S?.C 

» 

JMP 

PLTR 

00252*006006?  HARD: 

JSR 

@  •  PRN 1 

00253 • 000033 

27, 

00254  *006006? 

JSR 

@ .PRN1 

00255  *  000027 

23. 

00256  *  0-3240  1 

JMP 

PRET3 

JPLTR: 

JSR 

e.DISP 

» 

JMP 

PRET3 

00257*000000  KET3: 

0 

; CHECK  FOR  sw.  0 
i  OFF  =  463 1  >  Oi\=  PL01 

7ASCI I  ESC 
> ASCI  I  ETB 


0,0 

G/.VFC  /SET  VECTOR  FLOT  FI  AG 

Q  •  MOT 

P.KET 

a-fomd  ;one  scan  fop  plot  ting 

6-STEr  i INCREMENT  CYCL-  0O1 ■ 

0,0 

0,-Vr~  F'.'.UCK  [iflhN  f  i  4  (. 

PRFT3  ;t  /  i  T 


0027 1  *  0060? 1 ?  LIT  OT 
00?7? ’ 1 0  °  5  ?  O 
0007  3  *  04".'  >0- 
0P?7  4 ’ 00?7  6 3 


JS  R 
5-  LA -l 
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;T0  PRINT  TYPE 

#*S  ON  BLOCK  EDGES 

00275 ' 0340 1 4S 

TYPENs 

LDA 

3  /  .Ml 

00276*054502 

STA 

3/ BLOCK 

JSCAN  BLOCKS--- 

00277*031400 

BEGIN: 

LDA 

2  >0  >  3 

00300 '151005 

MOV 

2/2/ SNR 

00301 *002756 

JMP 

@RET3 

00302*02101 4 

LDA 

0/14/2 

00303* 101005 

MOV 

0/0/  SNR 

00304  *  003440 

JMP 

NEXT  1 

1  SCAN  SIDES... 

00335*021000 

LDA 

0/0/2 

00306 ’ 024032? 

LDA 

1 / . MSKR 

00337  *  107403 

AND 

B.  1 

00310*044471 

STA 

I >NPNTS 

0031  1  *  126430 

SUB 

1  /  1 

00312*044470 

STA 

t  /NPP 

00313  *3O6330S 

JSR 

e.P0Ni 

00314*040467 

STA 

0/X0 

00315*040470 

STA 

0/XA 

03316*044466 

STA 

1  /Y0 

00317*044470 

STA 

1  /  YA 

00320*024462 

LDA 

1  /NPP 

00321 *000414 

JMP 

DOWN 

00322*125400 

BACK : 

INC 

1  /  1 

00323 ’ 00603 1 S 

JSR 

P.P0N2 

00324 ' 040462 

STA 

0/xa 

00325*044463 

STA 

1  /YB 

00326*004421 

JSR 

TPRNT 

00327*010453 

ISH 

NPP 

00330*024452 

LDA 

I  /NPP 

00331 *020455 

LDA 

0/XB 

00332*040453 

STA 

0/XA 

003 33*020455 

LDA 

0/YB 

00334*040453 

STA 

0/YA 

00335*014444 

DOWN : 

DS  = 

NPNTS 

00336*000764 

JMP 

BACK 

00337  *020444 

LDA 

0/X3 

00340*040446 

STA 

0/XB 

00341 *020443 

LDA 

0/Y0 

00342 ' 040446 

STA 

0/YB 

00343*004404 

JSR 

TPRNT 

JEND  OF 

SIDE  SCAN 

00344*010434 

NEXT  1 : 

IS2 

BLOCK 

00345*034433 

LDA 

3/BLOCK 

00346*000731 

JMP 

BEGIN 

;end  of 

BLOCK  SCAN 

00347*054430 

i 

TPRNT : 

STA 

3/TPSAV 

00350*024432 

LDA 

1  /NPP 

00351 *006041S 

JSR 

P.TYP  JGET  TYFF. 

e0352* 101005 

MOV 

0/0/SNR  ;DEFAULT 

00353*002424 

JMP 

PTPSAV 

003  54 ' 04043  5 

STA 

0/TYPE 

003  55  *  020430 

LDA 

0/XA 

00356*034430 

LDA 

3/XB 

00357 ’ 1 63220 

ADD2R 

3/0  > ( XA+XB) /2 

00360  *03443? 

LDA 

3 /MOVE  I 

00361  *  1 62400 

SUB 

3/0 

THIS  EDGE 
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00362  *  024425 

LDA 

00363*034425 

LOA 

00364* 167220 

ADDER 

00365*034425 

LDA 

00366  *  1 6  6400 

SUB 

'  367  *006010;' 

JjK 

00370 • 0 no 000 

0 

00371 *"060405 

JSR 

00372  *  022417 

LDA 

00373  *  034420 

LDA 

00374 • 1 63000 

ADD 

00375  *006037$ 

JSR 

00376*002401 

JMP 

00377  *  003000 

TPS A V  : 

0 

00400*300030 

DLOCP : 

o 

r;  •  £* ;  i  •  »‘»P00OO 

NPNTS : 

0 

00402*0 -70' 

iV:.- : 

1 

c. >'•' 4 , .  3  *  (*•••>0000 

XO: 

0 

(> 2404  *000000 

YO: 

0 

03405  *  330000 

XA  i 

0 

00406  *  330000 

XB : 

0 

00407*000000 

YA: 

0 

00410*000000 

YB: 

0 

00411 *030003 

TYPE: 

0 

00412*000306 

MOVE  1 : 

6 

03413*033063 

NN0: 

”0 

00414*001  t  CO  * 

F  LG: 

FLAG 

00415*0360255 

UINP: 

JSR 

00416*002641 

JMP 

00417*0060435 

PINP: 

JSR 

030012 

•  RDX 

00420*001461  * 

PMESS 

00421 ' 177324 

-330 

00422*001274 

700 

0000 \ 0 

•  RDX 

00423*0060445 

JSR 

00424*002633 

JMP 

00425 ‘006047S 

RP3 : 

JSR 

00426*0069115 

JSR 

00427*006052? 

JSR 

00430*0069035 

JSR 

00431 *002626 

JMP 

00432*036050? 

WP3: 

JSR 

00433*032624 

JMP 

00434' I 02403 

CUR: 

SU8 

00435*342757 

STA 

09436*0063955 

CURS: 

JSR 

00437  *009522’ 

CHAR 

00440*09064 1  * 

X 

00441 *009647 ' 

Y 

00442 ’006043S 

JSR 

00440*020457 

LDA 

00444*024467 

LDA 

00445’ 1 0641 5 

SUB* 

00446  *302456 

JMP 

l  *  YA 
3/YB 

3 /  I  ;CYA  +  YB>/2 

3 /MOVE:  1 
3/  I 

O.rLTS 

<?  •  ALPH 
CS/TYFE 
3/iNN0 

3»0  »  ASCI  I  OKAS 

@  •  FKi\2 

0TPSAV 


e.UlNP 

@ret3 

S.MESS 

10 


8 

e.PSEG 

0RET3 

g.READ 

g.PAGE 

0.TPRN 

e.oiss 

@R£T3 

P*WR1T 

@RET3 

0,0 

0/5FLG  /  RESET  PROP.  CHNG. 
g.CURS 


A. ALPH 
0 , CHAR 
I  /Cl 

C/  I/S, NR  1**1”  BEEN  HIT? 
PLOADR 


INDJC 
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004  47  ’  024464 
00450  *105415 
00451 ' 000454 
0045?  *  0?4454 
00453* 10641 5 
00454*000575 
00455  * 0?445  5 
00456 ’ 1 0641 5 
00457  *000455 
00460*024451 
00461  *  1 064  1 4 
0046?  *  00244  1 
00463  *  006007? 
00464*000641 • 
00465*000642' 
00466*000750 
00467*021000 
00470  *  024427 
00471  *  107414 
00472 ' 0007  44 
00473  *  123000 
00474*041000 
00475* 102400 
00476*041005 
00477  *041006 
00500*041015 
00501 '041020 
00502*041021 
00503*041022 
00504*034415 
00505*021001 
00506*163000 
00507*025003 
00510’ 167000 
0051 1 *0060105 
00512*000000 
00513*0060405 
00514 • 0O6006S 
00515*000106 
00516*000720 
00517*010000  FBIT: 
00520*004000  MBIT: 
00521*000005  FIVE: 
00522*000000  CHAR: 
00523*001020*  SURFR : 
00524*000672*  LOADR: 
00525*001121*  ONE: 
00526  *  00026 1  Cl: 
00527*000262  C2: 

00530*000325  U: 
00531*000306  F: 
00532*000305  £: 

00533 ' 0O031 7  0: 

00534 ’ O06007S  ERASE: 
00535*000641  * 
00536*000642' 
00537*000677 
00540*044503 
00541  *00601  IS 
00542 'O06026S 


L  0  A 

1  .0 

S  U  ‘■5  * 

1  ,  S NR 

{HAS  "0**  BEEN  HIT  ? 

JMP 

<*ONE 

LDA 

1  ,U 

SUB* 

0>  1  >  Sf.R 

{HAS  **U"  BEEN  HIT? 

JMP 

UNFIX 

{  YES 

LDA 

1  ,E 

SUB* 

0  , 1 , SNR 

{HAS  "E"  BEEN  HIT? 

JMP 

ERASE 

{  YES 

LDA 

1  >F 

SUB* 

0. 1 , ScR 

{HAS  "F”  BEEN  HIT? 

JMP 

3SURFR 

>  TkY  property  keys 

JSR 

e.HITC 

X 

Y 

JMP 

CURS 

LDA 

0,0,2 

{CONTROL  LORD 

LDA 

1  ,FBIT 

{ "F I XEO"  FLAG  (BIT  3) 

AND* 

0,  1  ,S2R 

{ALREADY  FIXED? 

JMP 

CURS 

ADD 

1  >0 

{ADD  IN  FLAG 

STA 

0,0,2 

{PUT  LORD  BACK 

SUB 

0,0 

{SUPPRESS  VELOCITIES 

STA 

0*5.2 

{X-VEL 

STA 

0.6.2 

{ALPHA-DOT 

STA 

0. 1 5,2 

{ Y-VEL 

STA 

0.2O.2 

{DELTA-X 

STA 

0,21,2 

{DELTA-Y 

STA 

0,22,2 

{DELTA-ALPHA 

LDA 

3, FIVE 

LDA 

0,1,2 

{XC 

ADD 

3,0 

;xc+5 

LDA 

1,3,2 

{YC 

ADD 

3,  1 

{  YC+5 

JSR 

e.PLTS 

0 

1PUT  BEAM  TO  RIGHT  PLAC 

JSR 

e.ALPH 

JSR 

e .prni 

"F 

JMP 

CURS 

1  0000 

{MANUAL 

FIX  BIT 

4000 

{MASTER 

FIX  BIT 

5 

0 

SURF 
LOAD 
ONLY 
"1+200 
"2+200 
"U+200 
"F  +  200 
"E+200 
"0+200 

JSR  e.HITC 

X 

Y 

JMP  CURS  { NO  HIT 

ST A  l.NR  J BLOCK  » 

JSR  @ • PAGE 

JSR  e.REBE  {PUT  IN  CORRECT  BOXES 
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00543 ' 1 02  40 0 

SUB 

0.0 

00544*041014 

STA 

0.14,2 

;SET  AREA  10  EERO 

0n545*0?1000 

LDA 

0,0,2 

00546  *  034030? 

LDA 

1  ,  •  MSK.~. 

00547 ’ 1 33400 

AND 

1 ,0 

00550*04^477 

STA 

0,  PCM 

00551  *  136400 

SUB 

1  ,  1 

00553*044473 

STA 

1  ,  N  P 

S  NEXT 

PART  RE'iOVEb  ALL 

rOINT  ENTrILi  .  i 

;no4 

ARRAY 

00553*036030? 

JSR 

d.PONl 

00554*000403 

JMP 

PLACE 

00555 ' 024467 

COW : 

LDA 

1  ,NP 

00556*006031? 

JSR 

0.PON2 

00557 ’034C33S 

PLACE 

:  LDA 

3  ,  •  M  3 

00560*030003- 

LDA 

2, .ci oe 

0C1561 '040465 

STA 

0,NX 

00563 ' 102400 

SUB 

0,0 

00563*073101 

DU/ 

00564 • 1371 20 

ADDEL 

1,1 

•''565*137  1  > 

ADDEL 

1  »  1 

00566* 1 37000 

ADD 

1,3 

00567  *024457 

LDA 

1  ,NX 

00570* 102400 

SUB 

0,0 

00571 *073101 

DIV 

00572* 137000 

ADD 

1,3 

00573*054452 

STA 

3, OLD 

00574*020447 

LDA 

0,N8 

00575*024447 

LDA 

1  ,NP 

00576* 125300 

MOWS 

1,1 

00577*123000 

ADD 

1,0 

;  cnp:nb> 

00600*035400 

LDA. 

3,0,3 

} CNO  CHECK  FOR  END) 

00601 *025400 

ROUND 

:  LDA 

1  ,0,3 

00602*106415 

SUB# 

0,1, SNR 

00603*000405 

JMP 

OOT 

f FOUND  IT 

00604’ 165400 

INC 

3,1 

00605*044440 

STA 

1  ,OLD 

00606*035401 

LDA 

3,1,3 

)  LINK 

00607*000772 

JMP 

ROUND 

00610*025401 

OOTs 

LDA 

1,1,3 

;THIS  LINK 

0061 1 *046434 

STA 

l  ,@OLD 

00612*010432 

ISZ 

NP 

00613*014434 

DSZ 

PCNT 

00614*000741 

JMP 

cow 

;to  return  dead 

CONTACT 

ENTRIES  TO  EMPTY  LIST 

00615*0340345 

LDA 

3,  .MS 

00616*020425 

LDA 

0,NB 

00617  *  1 17000 

ADD 

0,3 

00620*054425 

STA 

3, OLD 

00621 *035400 

LDA 

3,0,3 

00622* 165000 

MOV 

3,  1 

l KEEP  FIRST  ENTRY 

00623* 175112 

MOVL# 

3, 3, SEC 

00624*00041 1 

JMP 

EXIT 

)N0  CONTCTS 

00625*171000 

NIT: 

MOV 

3,2 

1  SAVE  PREV.  ADDR. (LAST  ? 

00626*035402 

LDA 

3,2,3 

;next  entry 

00627*1751  13 

MOVL# 

3,3, SNC 

00630*000775 

JMP 

NIT 

;keep  going  down  chain 

00631 *05641  4 

STA 

3, COLD 

) PLUG  INITIAL  POINTER 

00632 '02GO27S 

LDA 

0,  .F.MPT 

00633*041002 

STA 

0,2,2 

l STORE  OLD  EMPT  POINTER 
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0C634*044O27S 

STA 

1  *  • EMPT 

0O635*O060t2S 

EXIT: 

JSR 

e.ALLB 

;  UPDATE  REMAINING  CONTACTS 

P9636  * PP60S2S 

JSR 

e.TPRN 

00637  ’  006003S 

JSR 

e.Diss 

*  RE-DRAW 

00640 *00241 0 

JMP 

eCURSR 

00641 *090000 

X: 

0 

00642  *  P0PPP0 

Y: 

0 

0064 3 ' 000000 

NB : 

0 

00644 '000000 

NP: 

0 

00645 ' OOflPOC 

OLD: 

0 

00646*000300 

NX: 

0 

00647  *000000 

PCM : 

0 

00650*000436* 

CURSR: 

CURS 

00651 *006007? 

UNFIX: 

JSR 

0.HITC 

00652*000641  * 

X 

00653*000642* 

Y 

00654*002774 

JMP 

eCURSR 

00655*621000 

LDA 

0*0*2 

*  TO  RELEASE  A  BLOCK 

00656*024642 

LDA 

1  *MB I T 

;  IS  MASTER  BIT  SET? 

P0657  *  1 0741 4 

AND* 

0*1*  ScR 

00660*002770 

JMP 

eCURSR 

;yes*  HARD  LUCK! 

00661 *024636 

LDA 

1  *  FBI T 

00662* 107415 

AND# 

0*  l  *SNR 

;FIXED  ALREADY? 

00663*002765 

JMP 

eCURSR 

} NO  CHANGE  NECESSARY 

00664  *  1 22400 

SU3 

1*0 

t REMOVE  BIT 

00665*041000 

STA 

0*0*2 

*  PUT  CONTROL  V.ORD  BACK 

00666*00601 1? 

JSR 

e  •  PAGE 

00667 ’006O52S 

JSR 

e.TPRN 

00670*006003$ 

JSR 

e.Diss 

J RE -DR AW 

00671 *002757 

JMP 

eCURSR 

; CARRY  ON 

*  ROUT I NE  TO 

INPUT  LOAD  ’ 

VECTORS  FROM  SCREEN 

00672*0 06O07S 

LOAD : 

JSR 

e.HITC 

00673*900641  * 

X 

00674'O00642' 

Y 

00675*000521 

JMP 

SURFI 

! NO  HIT;  TRY  SURFACE 

00676*050501 

STA 

2*  PNT 1 

00677 '0O6006S 

JSR 

e.PRNl 

JRING  BELL  FOR  HIT 

00700*009007 

7 

00701 *006095? 

JSR 

e.cuRS 

00702*000522' 

CHAR 

007O3'O01090' 

XX 

00704*001091  * 

YY 

00705  *  09 604 0S 

JSR 

e.ALPH 

00706*920614 

LDA 

0*  CHAR 

00707  *024620 

LDA 

I  *  C2 

00710* 106414 

SUB# 

0*  l  *S?R 

;IS  IT  **2'*  FOR  2ND  POINT? 

0071 1 *002737 

JMP 

eCURSR 

;N0,  SOMETHING  ELSE 

037 I 2  *006007? 

JSR 

e.HITC 

007 1 3*001 000* 

XX 

007  14*001001  * 

YY 

007 1 5 '000422 

JMP 

BOG 

;haven*t  hit  a  block 

007 1 6 ' 03446 1 

LDA 

3*  PNT  1 

1  FIRST  POINT  BACK 

00717 ' 1 5641 4 

SUB# 

2  *  3  *  S2R 

J  COMPARE 

00720*00041 7 

JMP 

BOG 

TANOTHER  BLOCK  (COINCIDENCE) 

007? |  *  F2 t  np 3 

LDA 

0*23,2 

;hit  on  same  block 

09722 ' 025024 

LDA 

1*24*2 

;yy  LOAD 

00723  *  1 23005 

ADD 

1 , 0  *  Sf.R 

00724*002724 

J-1P 

eCURSR 

; EERO.  RETURN! 

C-129 


00725* 1 02400 

6  MM 

*  f  ;  * 

00726 

STA 

0,23,2 

; SET  LOADS  TO  AERO 

00727  *  1  024 

ST4 

0,24,2 

00730*00601 1 S 

REDR : 

J5R 

a. PAGE 

00731 • H06052S 

J5R 

0.TPRN 

007  32 ’ 006003S 

JSR 

e.Diss 

00733* 006021? 

JbR 

e.LPLS 

00734* 102520 

SU3SL 

0,0 

O07  35*n4''u;OO- 

STA 

0. . LFAP 

007  36  *  09271 2 

J 

i-Cur  SR 

00737  * 034440 

0Of-: 

L*;a 

Ol  -  h  i  1 

74  40  1 

LDA 

Or  1,3 

.*  XXC 

00741 *024437 

LOA 

1  ,XX 

JENO  2 

00742  *  106400 

SU8 

0  ,  1 

JRELATIVE  VECTOR 

00743*0300225 

LDA 

2, •  VFAC 

i  SCALING'  FACTOR 

00744* 102400 

SU8 

0,0 

00745*073301 

MUL 

00746*021423 

LDA 

0,23,3 

1  OLD  XX  LOAD 

00747  *040427 

STA 

0, OLDX 

00750*045423 

STA 

1,23,3 

JNEVi  XX  LOAD 

00751 *021403 

LDA 

0,3,3 

i  YYC 

00752*024427 

LDA 

1  ,  YY 

00753  *  1 06400 

SUB 

0,  1 

00754* 102400 

SUB 

0,0 

00755*073301 

MUL 

00756*021424 

LDA 

0,24, 3 

IOLD  YY  LOAD 

00757*045424 

STA 

1,24,3 

JNEU  YY  LOAD 

00760*024416 

LDA 

1 ,OLDX 

00761  *  107034 

ADD 

0,  1 ,S£R 

1  SKI P  IF  BOTH  EERO 

007 62  *  000746 

JMP 

REDR 

IRE-DRAW  ALL 

00763*021401 

LDA 

0,1,3 

;xxc 

00764*025403 

LDA 

1,3,3 

;yyc 

00765*0O6O1OS 

JSR 

e.PLTS 

00766*000030 

0 

00767*02041 1 

LDA 

0,  XX 

00770*02441  1 

LDA 

I  ,  YY 

00771 *0060103 

JSR 

e.PLTS 

} PLOT  SINGLE  NEW  VECTOR 

00772*000001 

1 

00773*102520 

SU82L 

0,0 

00774*040000- 

STA 

0,  .LPAP 

00775*002653 

JMP 

0CURSR 

00776*000000 

OLDX: 

0 

00777*000000 

PNT  1 : 

0 

01000*000000 

XX: 

0 

01001  *  000000 

YY: 

0 

J  ROUTINE  FOR  INPUT  Or  SURFACE  PROPERTY  TYPES 

01002*100257  * 

RET3S : 

0RET3 

01003*000436* 

CURSS: 

CURS 

01004*000000 

21  MM: 

0 

01005*000000 

DIGIT: 

0 

010O6'0OOO0O 

DIGAS: 

0 

01007*020000 

LDIT: 

20300 

01010*000260 

N0: 

”0+200 

0101 1 *000271 

N9 : 

"9  +  200 

01012*000006 

MOVE: 

6 

000025 

START  =  2 

5 

01013*000026 

SS: 

START  +  1 

01014*000027 

SL: 

START+2 

01015*007777 

TMSK  : 

7777 

01016*020772 

SURF l : 

LDA 

O,N0 

© 


oi  oi  7  •  i  :i  i  /no 

I  NO 

0,0 

01  020  *  0/l-',766 

SURF: 

ST  A 

O, DIGAS  ;SAVE  ASCII  FORM  OF  DIGIT 

01001  *  f ' ° 7  6 7 

LDA 

1  ,  N  9 

01 00?  *  0307  67 

LDA 

2.N9 

01003’  1  <50033 

ADC  r  # 

2,",SNC  J  CHECK  FOR  DIGIT  0  TO  9 

01 004 ’ 1 06030 

Anc.6* 

0, 1  ,  SEC 

01 005’ 00 0454 

JMP 

Ufr;Y  ,-NOT  DIGIT.  EXIT-! 

01026’  122400 

SOD 

1,0  ;BIN.A:<Y  value 

01027*040756 

STA 

0, DIGIT 

0 1 030 ’0060365 

JSR 

O.HITS  irMND  LHICH  EDGES 

01031  *090641 ’ 

XRR: 

X 

01032*000642’ 

YRR : 

Y 

01033’ 0027  53 

JMP 

PCOkSS  »  PUT  UP  CURSOR  AC-AIN 

01034*054750 

STA 

3,  El  MM 

01035*010443 

IS2 

FLAG  J  KF-  CO i'D  TYPE  CHANGES 

1  STORE 

TYPE  #  I 

N  APPROPnIATE  L 0 :< D 

01036*021000 

LDA 

0,0,2  ; CONTROL  LORD 

01037*034750 

LDA 

3,  LB  IT 

01040* 117414 

AND# 

0 , 3 , SER  j LON G  BLOCK? 

01041 ' C0O406 

JMP 

LONG 

01042* 135120 

UOVHL 

1 ,3 

01043’ 1 57000 

ADD 

2,3 

01044*020747 

LDA 

o,ss 

01045 ' 1 17003 

ADD 

0,3 

01046*009406 

JMP 

NOSE 

01047*135120 

LONG: 

M0V2L 

1,3 

01050* 137000 

ADD 

1,3 

01051  *  157000 

ADD 

2,3 

01052*020742 

LDA 

0,  SL 

01053*1 17000 

ADD 

0,3 

01054*021400 

NOSE: 

LDA 

0,0,3 

01055*024740 

LDA 

1  ,  T  M  S  K 

01056* 197400 

AND 

g,l  JMASK  OFF  OLD  TYPE  # 

01057*020726 

LDA 

0,  DIGIT 

01060* 103120 

ADD2L 

0,0 

01061  *  103120 

ADDHL 

0,0 

01062* 101300 

MOVS 

0,0  ;IN  LEFT  4  BITS 

01063*107000 

ADD 

0,1  JADD  IN  NET.  TYPE  # 

01064*045400 

STA 

1,0,3  S PUT  COMPOSITE  BACK 

i PR  I  NT 

DIGIT  AT 

CENTRE  Op  EDGE 

01065*030725 

LDA 

2,  MOVE 

01066*022743 

LDA 

0, 9XRR 

01067* 142400 

SUB 

2,0 

01070*026742 

LDA 

1  ,r>Y  nr 

01071*1 46400 

SUB 

2,1 

01072*006010$ 

JSR 

P.PLTS 

01073*000000 

0 

01074*0O6040S 

JSR 

@ .ALPH 

01075*02071 1 

LDA 

0, D I  GAS 

01076*006037? 

JSR 

P . PRN2 

01077*002705 

JMP 

OEIMM  SRE-ENTER  FOR  FURTHER  HITi 

01  100*000090 

FLAG: 

0 

01 t  0 1  *029777 

UTRY  : 

LDA 

C,FLAC- 

01  1 02  *  101005 

MOV 

0,0,  SNR 

01 103*002677 

JMP 

PRET3S  »EX I T ,N0  CHANGES 

J  TO  REQUEST  UPDATE  CYCLE*  STORING 

;nel  TYPE  #5  IN 

CONTACT  (LISTS 

01 104*030016$ 

LDA 

2, .CrNl 

01 105'  Mi  ,  J 

LDA 

0,^,2  iNEL  LORD 

01 1 06*043009 

STA 

0,00,2 

C-131 


l 


PI  I 07 ’ 006  0  1 2? 

JSR 

01110 '03001 6? 

LOA 

mill  *021001 

LDA 

01  1  1  2 ' 0  4 3  0  0  0 

STA 

01 1 13*002667 

J--1P 

t 

J 

ROUTINE 

•  III-  *  1  <  7  ' 

J 

f  I C : 

FRAC 

C  t  1  1  5  '  1  '  l  :  '  ' 

i  0  T  3  r  *. 

•TRET  3  A 

01  l  1  6 ' 00 1 457 ' 

AC2T5S 

A  02  SV 

0!  l  17  •,•<01  436’ 

VET  : 

VETO 

Cl  120 '001  4  43' 

PO: 

PO  S 

01121  '006043? 

i 

ONLY: 

JSR 

01  1 °2  'POl 474  • 

ON  ESS 

01123' 1772/,? 

-352  - 

01 124' 001274 

70S. 

01 125' 0060055 

OCUR: 

JSR 

01 126*001 452 ’ 

OCHAR 

01 1 27 '001 453* 

OX 

01130*001454' 

OY 

01131 '006007? 

JSR 

0 1 1 32 ' 00 1 453 ' 

OX 

01 1 33*001 454' 

OY 

011  34 '00077  1 

JMP 

01 1 35*052761 

STA 

01 1 36 '00601  1  S 

JSR 

01  1 37  *006052? 

JSR 

01 140 '0327 36 

LDA 

01141 *0060455 

JSR 

01 1 42 '036043? 

JSR 

01143' 00 1506' 

CTNE5 

01144' 177634 

-100. 

01 1 4  5 ' 0  0 1 2  7  4 

700. 

01 146' 006043 S 

JSR 

01 147 '001 52!  ’ 

XCNES 

011 50 ' OOC 175 

125. 

01151 *001236 

670. 

01  1  52  *  0327  44 

LDA 

01 1 53 'O21001 

LDA 

01 1 54*0060405 

JSR  ■ 

01 1 5S ' 0060465 

JSR 

01 156 ’000005 

5 

011 57*032737 

LDA 

01 1 60  *  02 1  OOP 

* 

LDA 

01161 *006733 

JSR 

01 1 62 ’006043? 

JSR 

0 1 1 63 ’ 00 1  527  ' 

YCNES 

0! 1 64*000175 

125. 

01 165*001212 

650. 

011 66*032730 

LDA 

01 1 67*021203 

LDA 

01 170*  OO6O40S 

JSR 

0117! *006046? 

JSR 

01 172*000005 

5 

01 173*032723 

LDA 

01 174*021004 

LDA 

01 175*006717 

JSR 

01 176*032720 

LDA 

P.ALLB  JDO  AN  UPDATE 
2  ,  • CPNT 

0,1,2  ;  OLD  LORD 

e.<ET3S  ;EXIT 
iu  PLOT  ii:vtLL  SLjC* 


s.ness 


o . CURS  ! SELECT  SINGLE  BLOCK 


0.HITC  JIS  IT  A  BLOCK 


OCUR  ;NO  HIT  RETURN 

2, 0AC2TS  1  GOOD  HIT  RETURN 

@ • PAGE 

g.TPRN 

2  >  ©AC2TS 

P.DIS8  JD1SPLAY  IT 
e.MESS 


e.MESS 


2, @AC2TS 

0,1,2  SX  CENT 

e.ALPH 

e.IPRN  i PH -NT  IT 
2/PAC2T5 

0,2,2  SXC  LO  PRECIS 

SFRIC 

e.MESS 


2, PAC2T5 
0/3/2  iYCENT 

p.alph 

e.IPRN  SPRINT  IT 
2*  @ AC2T  S 

0,4,2  SYC  LO  PREC 
0FRIC 

2/ PAC2TS  ;BLOCK  POINTER 


C-132 


01177*021001 
01200  *025003 
01201  *00601  OS 
01202  *  000000 
0 1 203 • 02 [014 

0 1 204  *  O06O40S 

01205  *  006O46S 

01206*000004 

0 1207 • 006043S 

01210*001 547* 

01211*1 76504 

01212*001274 

0 1 2 1 3  *  0C6043S 

01214*001556' 

01215*001325 

01216*001236 

01217  *032677 

01220*021023 

01221 *101132 

01222*006675 

01223*006675 

0 1 224 • 036040S 

01225  *  006046S 

01226*000005 

01227 ' O06O43S 

01230*001612* 

01231 *001325 

01232*001212 

01233*032663 

01234*021024 

01235*101132 

01236*006661 

01237*006661 

01240 '006040S 

01241 *0060465 

01242*000005 

01243*060477 

01244* 101123 

01245*000552 

01246*0O6043S 

01247*001632* 

01250*001325 

01251 *000702 

01252*032644 

01253*021007 

01254* 101132 

01255*004561 

01256*004565 

01257  *  006O40S 

012  60*  O06O46S 

01261 *000006 

0 1 262  *  006043S 

01263*001641  * 

01264*001 325 

0 1 265 ' 000644 

01266*032630 

01267*021016 

01270  *101132 

01271  * 

01272*004551 


LDA 

0,1,2 

{  xc 

LDA 

1,3,2 

{  YC 

JSR 

0 

e.PLTS 

LDA 

0,14,2 

{WEIGHT 

JSR 

©  •  ALFH 

JSR 

4 

©•IP  Ri\ 

{PRINT  IT 

JSR 

LDMES 

e.MESS 

-700. 

700. 

JSR  e.MESS 

XLMES 

725. 

670. 

LDA  2,©AC2TS  J  GET  BLOCK  POIMErv 

LDA  0,23,2  ;X  LOAD 

NOVEL#  0,0, SEC  ;  GET  SIGN  OF  LOAD 

JSR  ©VET  J  PRINT 

JSR  ©PO  {  PRINT  *•+•• 

JSR  ©.ALPH 

JSR  e.IRRN  5  PR  1  NT  IT 

5 

JSR  ©.MESS 

YLMES 

725. 

650. 

LDA  2, © AC2T  S 

LDA  0,24,2  i  Y  LOAD 

NOVEL#  0,0, SEC  J  GET  SIGN  OF  LOAD 

JSR  ©VET 

JSR  @P0  {PRINT  + 

JSR  e.ALPH 

JSR  @.IPRN  {PRINT  IT 

5 

READS  0  {I  VEL, F SUMS, ETC 

MOVZL  0,0, SNC 

JMP  OM I T 

JSR  ©.MESS 

XFSM 

725. 

450. 

LDA  2, SAC2TS  {GET  BLOCK  POINTER 

LDA  0,7,2  { XFORCE  SUM 

MOVSL#  0,0, SEC  {GET  SIGN 

JSR  VETO 

JSR  POS 

JSR  e.ALPH 

JSR  P.IPRN 

6 

JSR  ©.MESS 

YFSM 

725. 

420. 

LDA.  2,©AC?TS 

LDA  0,16,2  {Y  FORCE  SUM 

MOVEL#  0,0, 5=C  {GET  SIGN 
JSR  V  E  l  0 

JSR  POS 


C-133 


0  1  27  3  •  P06P40S 

JSR 

01274*006046? 

JSR 

01 27  S’  0  0000  6 

6 

PI 27  6  *  n~ 6043c 

JSR 

01277*001 650  * 

MSliM 

01  3-o.' •Cl.'.  1  32  5 

725. 

SI  301  *  000606 

393. 

P  1  3r'r>  *  i  '31'.  555 

LDA 

PI  303’  121017 

LCJ4 

PI  3 ■ 1 4  * !  113' 

*)0  v  *  L  * 

01305  *  O:  4  531 

JSR 

01306*004535 

JSR 

01307  *0060405 

JSR 

01310*006046? 

JSR 

01311 *000007 

7 

01312*  006343? 

JSR 

01 3 1 3  *  001  655  * 

XVLM 

01314*001 325 

725. 

01315*003512 

330. 

01316' 03054 1 

LDA 

01317*021005 

LDA 

01320  *  101 l 32 

MOV EL# 

01321  *  00451  5 

JSR 

01322*004521 

JSR 

01323*006040? 

JSR 

01324  *  O06046S 

JSR 

01  325  *00.0006 

6 

01326*006043? 

JSR 

01327  *  001663* 

YVLM 

01330 ' 001 325 

725. 

01331  *  000454 

300. 

0 1 332  *030525 

LDA 

0 l 333 ' 02 1  0 1 5 

LDA 

01334* 101 132 

M0V2L# 

01335*004501 

JSR 

01336*004505 

JSR 

01  337  *O06043S 

JSR 

01340*OO6O46S 

JSR 

01341 *000006 

6 

01342 ' 006043? 

JSR 

01343*001671  ' 

RVLM 

01344*001325 

725. 

01345*003416 

270. 

01346*03051 1 

LDA 

01347  *  021006 

LDA 

01350* 1 C 1 132 

MOVEL# 

01351 *004465 

JSR 

01352 ’ 00447 1 

JSR 

01353'0O6O4R5 

JSR 

0  1  354  *  006046? 

JSR 

01355*000006 

6 

01356*006043? 

JSR 

01357*001 535* 

SINE 

01  3*60  *001  32  5 

725. 

01 361  *  000310 

200. 

01362*030475 

LDA 

01 363 ’ 02| 000 

LDA 

01364* 101132 

MOVEL# 

01 365  *004451 

JSR 

01366*004455 

JSR 

P.C.LPF 
P. IPHN 

e .mess 


?>  AC25V 

0*1 7* 2  ;  -lO^lEM  bi_"l 

■  5  GET  6IC-N 

VETO 
POS 

@.alph: 

@ • I PRN 
e.MESS 


2> AC2SV 

0>S>2  JX  VELOCITY 

0  j  0 >  S  EC 

VETO 

POS 

P.ALPH 

e . i prn 

P .MESS 


2.AC2SV 

0'15>2  JY  VELOCITY 

0>0,SEC 

VETO 

POS 

0-ALPH 
?  «  I PRN 

g-MESS 


2j  AC2SV 

R.»6*2  *.ROT  VEL 

Ot O*  S  EC 

VETO 

POS 

Q  .ALPH 
P . I PRN 

P .MESS 


2,AC2SV  ; GET  BLOCK  POINTER 

O'  O'  2  JSICN  OF  THE  SINE 

P>  0>  SEC  j+  =  p,-=i 

VETO 

POS 


01 367 • 021  Cl  1 

LL)4 

01373  'NO  A  ,74  6  5 

JSR 

01 37 1 ' 1 77772 

-6 

0  1  3  7  2  *  C  0  6  C  4  3  5 

JSR 

01373  1  O'Jl  5 4 0  * 

DALF 

01 3  7  4’ 001 32  6 

725. 

0  1375’  0'T252 

170. 

01376’ 03046 1 

LDA 

01377*021022 

LDA 

0  1  40O  ’  1*404  1  6 

STA 

P1401  ’  1 01 133 

NOVEL* 

0 1 400 ’ 000407 

JMP 

01 403  ’004433 

JSR 

0 1 404 ’ ^00401 

JMP 

01  405 ’0204  1 l 

LDA 

01  406’036r'46S 

JSR 

01407 ’ 1 1111° 

-6 

01410’ 000407 

JMP 

01411 ’004430 

LL'4 : 

JSR 

01412’0204P4 

LDA 

01413’ 006344? 

JSR 

01 4 1 4 ’ 1 77772 

-6 

01415’ C  0  0  4  0  2 

JMP 

01 41 6 ’000000 

DELE  : 

0 

01 4 17’ 0060430 

CM  I T : 

JSR 

0 1 420 ’001 563* 

CUES 

01421 ’000144 

100. 

01 422 ’000 144 

100. 

01 423 ’0601 10 

DOVR : 

N  I  OS 

0 1 424 ’ OO6002S 

JSR 

01425’ 006037  S 

JSR 

01426*024427 

LDA 

01427 ’ 1 06405 

SUB 

0143O ’OOO420 

JMP 

01431 ’024425 

LDA 

01432’ 106404 

SUB 

01433 ’ 000770 

JMP 

01 434’O0240t 

JMP 

01435’ 101115’ 

RT3T : 

0RET3T 

01436’ 054422 

VETO: 

STA 

01 437 ’006O06S 

JSR 

01440’ 000055 

♦  t  _ 

01441 ’ 03441 7 

LDA 

01442*001401 

JMP 

01443'  54415 

POS: 

STA 

O1444'006006S 

JSR 

0 1 445 ’ 000053 

•  , 

01 446 ' 03441 2 

l.DA 

01447  T01  403 

J-1P 

0  1  45,0  ’  (’30407 

LODE: 

t-114 

01451 ’0060535 

JSR 

01 45^ '000000 

OCHAR: 

0 

0145  ’000000 

OX: 

G 

01454*000000 

OY: 

0 

01455' 0001 3 1 

Y  CHAR : 

”Y 

01466’ 0001 1 6 

NCHAR: 

"N 

01457 ’000000 

AC2SV: 

0 

0 1 460 ’ 000000 

AC3S V : 

0 

01461 ’047 l 1 1 

i 

PMESS: 

.TXT 

O. 11,2  ;  GET  7  HE  SINE 

A .  I  PRN 

P . MESS 


2, AC2SV 
0,22,2 
O.DELF 
0,0, SNC 
LUS 
VETO 
.  +  1 

0 , DELE 

@ . I PRN 

.  +7 

POS  ,*  PRINT  + 

O.DELE 
P  •  I PRN 

.+2 

9. MESS 


TTI 

P.GETT 

0.PRN2 

1 ,  YCHAR 
0, 1 ,SNR 
LODE 

1  ,  N  C  H  A  R 

O,  I ,£GR 
DOVH 

PRT3T  1  EX  I  T 

3.AC3SV 

P. PRNI 

3, AC3SV 
1,3 

3, AC3SV 
P .PRN1 

3, AC3SV 

O, 3 

2. AC2SV  ;  GET  BLOCK  POINTER 

P. LODE  JC-O  TO  INPUT  ROUTINE 


♦  IN 


;get  del  theta 
jsave  it 

t  -  OR  ♦ 

sLAS  FOG 

;  p  R  i  n  t  - 
;no  op 

iPRINT  IT 


CM  4  6">  *052520 

PU 

O  1  A  63  •  f*30  1  2  A 

T 

01 464*04751? 

JO 

01  465  *'"47  1  1  1 

1 1\ 

o  i  a 66  1  o?r  t  ?4 

T 

01467*051120 

HE 

0!  47(1  *051  505 

ES 

0147 l *C5?5?3 

S'J 

P\412.'  PA25°2 

E 

0  1473*  000 1 23 

S' 

01474' 040503 

OTESS: 

01475*  04? 5 l 4 

LE 

01  476  •  50  i  ..3 

CT 

01477*051 

■  >  1  5nr-  *  047  1  1  1 

If; 

''1501  *  0  4  5  1  c  7 

GL 

01  SOP* 0901 05 

r 

01 503*04610? 

BL¬ 

01504*041 517 

OC 

01505*0001 13 

K* 

0 1 506  *  04?  503 

CTmes: 

01507*0521 16 

NT 

01510*047522 

RO 

0151 1 *0621 l l 

ID 

01512*041 440 

C 

01  513  *247517 

00 

01514*042122 

ED 

01 5 1 5  *  047 1 1  1 

IN 

0 !  5  1  6  *  0  52  l  0  1 

AT 

31 51 7 • 051 505 

ES 

0  1  520 '000000 

* 

01521  *  020 I 30 

XCMES  : 

015??  *  04? 5i >3 

CE 

01523*  -  52 1 1 4 

f.  r 

1  5:'v  •  (7  4 7  52? 

EO 

01525*0421 1 1 

ID 

01526*  00  3  •00 

* 

01  527*020 131 

YC'-IES: 

01530*042503 

CE 

01531 *0521 1 6 

NT 

01532*047522 

RO 

01533*0421 1 1 

ID 

01534' 000000 

* 

01535*044523 

SINES 

01536*0201 1 6 

N 

01537*044124 

TH 

01540*052105 

ET 

01541 *000101 

A* 

0 1540 ■ 042504 

DALF: 

01543  *  02P1 1 4 

L 

01  544  *  044  124 

TH 

01 545*052 105 

ET 

01546*000101 

A* 

01547*050101 

LDMES : 

01559*046120 

PL 

01551 *04251 1 

IE 

01552*020104 

D 

0 1 553 ' 047514 

LO 

01554*042101 

AD 

01555*000123 

S* 

.TXT 


.TXT 


.  TXT 


•  TXT 


•  TXT 


•  TXT 


•  TXT 


*SE 


*CE 


*X 


*Y 


*S  X 


*DE 


*  AP 


At S56*O201  30  XLMES:  .TXT 
01  557 '04751 4  L0 
0 1 560 '042101  AD 
01561 *020040 
0  1  5  62 ' 900OOA  * 
01563*047504  DUES:  .TXT 

G 1 564 ' 054440  Y 
0156S'O52517  OU 
0 1  566 ' 053440  k 
0 1 567 ' 05 1 5 1  1  IS 
01570*020110  H 
01571*047524  TO 
01572*041440  C 
01573*040510  HA 
01574*043516  NG 
01575*020105  E 
01576*044124  TH 
01577*020105  E 
01600*047514  LO 
O1601 *042101  AD 
01602*020123  S 
01603*020050  < 

01604*020131  Y 
01605*051117  OR 
01 606 '047040  N 
01607*024440  ) 

0  1  6  1  0 ' 03-7440  ? 

01611 *000040  * 

01612*020131  YLMES :  .TXT 
01613*047514  LO 
0 1 6 1 4 ' A  42 101  AD 
01615*020040 
01 61 6 '000000  * 
01617'044440  IMMS:  .TXT 

01620*050116  NP 
01621*052125  UT 
01622*043040  F 
01623*052454  ,U 
01624*046054  t L 
01625*047440  0 

01626*020122  R 
01627*020117  0 

01630*020077  ? 

01631*000000  * 

01632*020130  XFSM :  .TXT 

01633*047506  FO 
01634*041522  RC 
01635*020105  E 
01636*052523  SU 
01637*020115  M 
01640*000000  * 

01641*020131  YFSM:  .TXT 

0 1 642 ' 047  506  FO 
01643*041522  RC 
01644*020105  E 
01645*052523  SU 
0 1 646*0201 1 5  M 
o 1 647 ’ 000000  * 

01650*047515  MSUM:  .TXT 

01651*027115  M. 


016S2*O5t44Ci  S 
016S3*046525  UM 
01654'oonn^n  * 

01655*023130  XVLM: 

01656*042526  VE 
01657*047514  LO 
01660*044503  Cl 
01661*054524  TV 
01662*000040  * 

31663*020131  YVLMS 
01664*042526  VE 
01665*047514  LO 
01666*044503  Cl 
01667*054524  TY 
01670*000043  * 

01671*047522  PVLM: 

01672*027124  T. 

01673*053040  V 
01674*046105  EL 
01675*020056  . 

01676*000000  * 

ST 0  PRINT  FRACTION  CUITH  N  DECIMAL 
J PLACES!  FOLLOWING  HI  PREC  COORD 


000034 

N  =  4 

I  NO. 

OF  DIC-ITS 

01677*354413 

FRAC: 

STA 

3. FSAV 

01730*040413 

STA 

0*FR 

01701 *0060065 

JSR 

e . prn i 

01702*000056 

•  » 

• 

01703*024410 

LDA 

1  .FR 

01704*030410 

LDA 

2.C1000 

01705*102400 

SUB 

0*0 

01706*073301 

MUL 

01707*0060465 

JSR 

@ . I PRN 

01710*177774 

-N 

01711 *002401 

J.MP 

©FSAV 

01712*003000 

FSAV: 

0 

01713*000000 

F  K: 

0 

01714*023420 

0100-3: 

I 0000. 

SSET  AT 

•  END 


C-137 

.TXT  *X 


•TXT  *Y 


.TXT  *B0 


00000-O0O123* 
00001 -000314* 
00002-000333  * 
00003-000000 
00004-000000 
00005-000000 
00006-000000 
00007-000000 
00010-000001 
0001 1 -000000 
00012-00001 1  * 
00013-000005 


00000*000000 
00001 *000000 
00002*000000 
00003*000000 
00004  *  000000 
00005*000000 
00006*000000 
00007*000000 
00010*000000 

00011 *02001 1- 

00012*101005 

00013*001400 

00014*054764 

000 1 S  *  0340 1 4S 

00016*054763 

00017*024764 

00020*044765 

00021 *024763 

00022*044764 

00023*02401 7  $ 

00024*044756 

00025* 1 02400 

00026*040755 

00027*040755 

00030*036751 
00031 *102520 
00032*040755 

00033*031405 
00034*151 112 


C-138 


•  T1TL 

CYCLE 

t  SEVERAL  ADDITIONAL  UTILITY  PROGRAMS 

•  ENT 

OPTIN. .STEP, .TPRN 

•  ENT 

.  KET  . .PSE  r 

.EXTD 

. IPRN. .PRNI . .MESS 

.  EXTD 

. N  V  E  C  > • VFAC. .  D  I  SS. • PA 

•  EXTD 

. PRN2  . »GETT  . .D9IN.MU 

•  EXTD 

. M 1 » .VEC» .PFLG. .NUM 

•  EXTD 

•MOT. .FORD 

•  EXTN 

CONTR 

•  2REL 

•RSET: 

CHNGIT 

•STEPS 

STEP 

.TPRN: 

TPRN 

• ITLOS 

0 

•1THI S 

0 

•OPTM* 

0 

•COPY: 

0 

•STOP! 

0 

•COPCT: 

1 

•KEEL: 

0 

t 0=NO  KE  CALC 

•  RET! 

KET 

•  Cl  0 1  5 

.NR  EL 

» 

t ROUTINE  TO  SET 

VELOCITIES  TO  EERO 

i AT  A  KINETIC  ENERGY  PEAK 

KRET: 

0 

POINT: 

0 

COUNT: 

0 

KHI : 

0 

KLO: 

0 

KOHI : 

0 

KOLO: 

0 

FLAG: 

0 

MYS: 

0 

l 

KET: 

LDA 

0* .KEFL 

MOV 

0.0. SNR 

JMP 

0.3 

STA 

3. KRET 

LDA 

3.  .Ml 

STA 

3. POINT 

LDA 

1  .KHI 

STA 

1  .KOHI 

LDA 

1  .KLO 

STA 

1  .KOLO 

LDA 

1  .  .  NUM 

STA 

1 .COUNT 

SUB 

0.0 

STA 

0.KHI 

STA 

0.KLO 

1  TO  FIND  KINETIC  ENERGY 

ITER: 

LDA 

3 . @P0 INT 

SUBcL 

0.0 

STA 

0. FLAG 

l  X  VELOCITY 

LDA 

2.5.3 

BACK: 

MOVL  0 

2.2. SZC 

C-139 


00035’ 1 50400 

NEC 

2,2 

00036  ’  t  451100 

MOV 

2, 1 

00037 • 1 02400 

SUB 

0,0 

00040  *073301 

MUL 

00041 *030742 

LDA 

2,  KH I 

00042  ’034742 

LDA 

3  »  KLO 

00043 ' 1 67022 

ADD2 

3  »  1  ,  S  2C 

00044 ’151 400 

INC 

2,2 

00045* 1 43000 

ADD 

2,0 

00046 ’040735 

STA 

0  »  K  H I 

00047 ’044735 

STA 

1  ,KLO 

00050 '01 4737 

DS2 

ELAG 

00051  *  000404 

JMP 

NEXT 

J  Y  VELOCITY 

00052*336727 

LDA 

3*  PPO I  NT 

00053 ’031 41 5 

LDA 

2, 15,3 

G0O54 ’OO0760 

JMP 

BACK 

00055*010724 

NEXT! 

IS2 

POINT 

00056 1 0 1 4724 

DS2 

COUNT 

00057 '000751 

JMP 

ITER 

i  DOUBLE  PREC  ADD 


I  CHECK  ON  HYSTERESIS  COUNT 


00060 

00061 

00063 

00063 

00064 

00065 

00066 

00067 

00070 

00071 

00072 

00073 

00074 

00075 

00076 
00077 
00 1  00 
00101 
00102 
00103 
00104 
00105 
00106 
00107 
00110 
001  1  1 
00112 
00113 
001  14 
00115 
001  16 
00117 
00120 
00121 
00122 


*010730 

•  024723 
*020721 
•030722 
•034722 

•  1 66422 

•  142401 

•  1 42000 
•101123 
*000431 
•024013- 
•02071  5 

•  106032 
•000425 

•O30014S 

•024017S 

•  124400 

•  102400 
•035000 
•041405 
'  041406 
•041415 
• l 51400 

•  125404 
•000772 

•  1  76400 
•054676 
•03401 6S 

•  175004 
•000405 

•  006003S 
*000641 ’ 
•001 522 
•000062 
•002656 


ITRE: 


NOPK ! 

> 

1 - 

I 


IS2 

HYS 

LDA 

1  ,KLO 

LDA 

0,KHI 

LDA 

2, KOH I 

LDA 

3,K0L0 

SUB2 

3, 1 , S2C 

SUB 

2 , 0, SKP 

ADC 

2,0 

M0V2L. 

0,0, SNC 

JMP 

NOPK 

LDA 

1,.C10 

LDA 

0»HYS 

ADCH# 

0,  1  ,S2C 

JMP 

NOPK 

VELOCITIES 

LDA 

2,  .Ml 

LDA 

1 , . NUM 

NEG 

1  ,  1 

SUB 

0,0 

LDA 

3,0,2 

STA 

0,5,3 

STA 

0,6,3 

STA 

0,15,3 

INC 

2,2 

INC 

1,1, S2R 

JMP 

ITRE 

SUB 

3,3 

STA 

3, HYS 

LDA 

3,  .PELG 

MOV 

3 , 3, S2R 

JMP 

NOPK 

JSR 

e.MESS 

KMS 

850. 

50. 

JMP 

8KRET 

PREC  SUB 


J1NHIBIT  PRINTING  IN  NOPLT 


•RESET  ROUTINE  - 


C-140 


00! 23  *  054407 

CHNGIT : 

STA 

3.SAV3 

00124*1 76400 

SUB 

3.3 

00125*054004- 

STA 

3. . ITHI 

00126*054003- 

STA 

3. . ITLO 

00127*176520 

SUB2L 

3.3 

00130*054010- 

STA 

3 . . COPCT 

00131 *002401 

JMP 

&SAV3 

00132*000000 

SAV3 : 

I 

0 

INPUT  ROUTINE  - 

001 33'006007S 

OPTIN: 

JSR 

@ .PAGE 

00134*0060035 

JSR 

e.MESS 

00135*000455* 

OPTMS 

00136*177242 

-350. 

00137*001274 

700. 

001 40*006003S 

JSR 

e.MESS 

00141 *000467* 

CRMS 

00142*000062 

50. 

00143*001236 

670. 

00144*00601  IS 

OUT: 

JSR 

e.GETT 

001 45 ' 024546 

LDA 

1 .CRGRT 

00146* 106415 

sua# 

0. 1 .SNR  SMUST  EXIT 

00147*000535 

JMP 

HOME 

001 50*0060035 

JSR 

e.MESS 

00151 *000523* 

N1 

00152*000310 

200. 

00153*001212 

650. 

00154*006003$ 

JSR 

e.MESS 

00155*000555* 

01 

00156*000113 

75. 

00157  *001130 

600. 

00160*00601  IS 

0V1  i 

JSR 

e.GETT 

00161 *024531 

LDA 

l.YCHR 

00162* 106414 

SUB# 

0. 1  .  S2R 

00163*000405 

JMP 

.  +  5 

00164*006010S 

JSR 

e.PRN2  SPRINT  Y 

00165*126520 

SUBHL 

1  .  1 

00166*0440045 

STA 

1..NVEC  ;  SET  FLAG  TO  PRINT 

00167  *000407 

JMP 

CNTI  snext 

00170*024521 

LDA 

l.NCHR  SCHK  FOR  NO 

00171  *  106414 

SUB# 

0. 1 . S2R 

00172*000766 

JMP 

0V1 

0017 3  *  0060 1 0S 

JSR 

e.PRN2  SPRINT  IT 

00174* 126440 

SU80 

1  .  1 

00175*0440045 

STA 

I..NVEC  S INHIBIT  PRINTING 

00176*006003$ 

CNT1  : 

JSR 

e  .MESS 

00177*000605* 

02 

00200*0001 13 

75. 

00201 *001046 

550. 

00202  *  0060 1 2S 

JSR 

6.DBIN 

00203  *  044OO5S 

STA 

1..VFAC  SSET  SCALE  FACT 

00204*006003$ 

JSR 

e.MESS 

00205*001051  * 

Q6 

00206*0001 1 3 

75. 

00207  *000764 

500. 

00210*00601  IS 

0VR6: 

JSR 

e.GETT 

002! 1 *024501 

LDA 

l.YCHR 

00212* 106414 

SUB# 

0.1 .SER 

00213*000405 

JMP 

.#5 

C-141 


00214*0060105 

JSR 

00215*126520 

SUBHL 

00216*04401 !- 

STA 

00217*000407 

JMP 

00220*024471 

LDA 

00221  *  106414 

SUB# 

00222 ' 000766 

JMP 

00223  *  0060 1 0S 

JSR 

00224* 126440 

SUBO 

00225*04401 1- 

STA 

00226* 0O6003S 

CTNU  { 

JSR 

00227*000646* 

03 

00230*0001 13 

75. 

00231 *000702 

450  • 

00232*00601  IS 

ova: 

JSR 

00233*024456 

LDA 

00234* 106414 

SUB# 

00235*000405 

JMP 

00236*036010$ 

JSR 

00237*126440 

SUBO 

00240*044005- 

STA 

00241 *000433 

JMP 

00242*024450 

LDA 

00243*106414 

SUB# 

00244*000766 

JMP 

00245*006010$ 

JSR 

00246*126520 

SUB2L 

00247*044005- 

STA 

00250*006003$ 

JSR 

00251 *000756* 

N2 

00252*000144 

100. 

00253*000620 

400. 

00254 *006003S 

JSR 

00255*001010* 

N3 

00256*000175 

125. 

00257*000567 

375. 

00260  *  006003S 

JSR 

00261 *000676* 

04 

00262*0001 13 

75. 

00263*000505 

325. 

00264  *  0060 1 2S 

JSR 

00265*044006- 

STA 

00266*006003$ 

JSR 

00267*000727* 

05 

00270*0001 1 3 

75. 

00271 *000423 

275. 

00272 ' 0060 1 2S 

JSR 

00273*044007- 

STA 

00274*006003$ 

LAST: 

JSR 

00275*001033* 

N4 

00276*000310 

200. 

00277*000257 

175. 

00300*00601 1$ 

0V3 : 

JSR 

00301*024412 

LDA 

00302* 106414 

SUB# 

00303*000775 

JMP 

00304*006007$ 

HOME: 

JSR 

00305*006002- 

JSR 

00306 '006006S 

JSR 

00307  *002401 

JMP 

3.PRN2  JPRINT  Y 
I  .  1 

l, .KEF L  iSET  FLC  TO  K  •  E  •  2ER0 

CTNU  JNEXT 

1 >  NCHR 

0, l >S?R 

0VR6 

e.PRN2 

i  *  l 

l  >  •  KEFL  UNH1B  K.E.2ER0 
e.MESS 


e.GETT 
1  ,NCh’R 
0*1, ScR 
.♦5 

f*  •  PRN2  J  PRINT  N 
l>t 

1  #  • OPTN  J NO  OPTIONS 

LAST 

1  .  YCHR 

0, l  .SZR 

0V2 

6 • PRN2  I  PRINT  Y 
1*1 

1  * .OPTN  J  SET  OPTION  FLAG 
e.MESS 


e.MESS 


e.MESS 


e.DBIN 
t  » .COPY 
e.MESS 


e.DBIN 
l/. STOP 
e.MESS 


e.GETT 
1 .CRGRT 
0/ I /SZR 
0V3 

e .PAGE 
e.TPRN 
e.Diss 
eBAKK 


00310' 177777 
0031 1 '0001 16 
00312* 0001 31 
00313*00001 5 

OAKKS 
NCHR : 
YCHR : 
CRGRTs 

1 

1 - 

CONTR 

"N 

**Y 

1  5 

- ROUTINE  TO  STEP  CYCLE  COUNTER  - 

003 1 4  *  054  S23 

; 

i 

STEP : 

JSR 

STA 

p.siep 

3.SAV3P 

00315*020003- 
00316*024514 
00317  *  101 400 
00320  *  1 0641 5 
00321 *000404 
00322*040003- 
00323*034514 
00324*001400 

LDA 

LDA 

INC 

SUB# 

JMP 

STA 

LDA 

JMP 

0* . I TLO 

1 . I TMAX 
0  .  0 

0» 1 .SNR 
NOTCH 

0> . ITLO 
3.  SAV3P 
0.3 

.EXIT 

00325* 102400 

NOTCH: 

SUB 

0  >  0 

00326*040003- 

STA 

0/ .ITLO 

; RESET  LO  WORD 

00327*010004- 

IS2 

.  ITHI 

I  INCREMENT  HI  WORD 

00330*004434 

JSR 

OPTON 

i CHECK  OPTIONS 

00331 *034506 
00332*001400 

i 

LDA 

JMP 

3 . SAV3P 
0.3 

JEXIT 

t - ROUTINE  TO  PRINT  CYCLES 


l 

f 

f 

JSR 

e.TPRN 

00333*054501 

* 

TPRN: 

STA 

3. TERMITE 

00334*060477 

READS 

0 

00335*101222 

MOVER 

0.0. S2C 

00336*000425 

JMP 

OOT 

00337*0060035 

JSR 

S.MESS 

00340*000454* 

MAT 

00341 *000702 

450. 

00342*001402 

770. 

00343*020004- 

LDA 

0..ITHI 

00344*0060015 

JSR 

P.IPRN  I  HI 

PART 

00345*000005 

5 

00346*020003- 

LDA 

0..ITLO 

00347*0060015 

JSR 

P.IPRN  t LO 

PART 

003S0* 177774 

-4 

I  WITH  LEADING  2ER0S 

00351  *  0060035 

JSR 

e.MESS 

00352*000440* 

CYC 

00353*001 1 1 6 

590. 

00354*001 402 

770. 

00355*02401 3S 

LDA 

1  .MU 

00356*030453 

LDA 

2.C1000 

00357* 102400 

SUB 

0.0 

00360*073301 

MUL 

00361  *  00600 1 S 

JSR 

f.lPRN  ; PRINT  DEFAULT  MU 

00362*1 77775 

-3 

00363*002451 

OOT: 

JMP 

PTERMI TE 

i 

/ 

i 


OPTION  CHECKER 


C- 143 


00364 • 054452 

OPTONt 

STA 

00365*020005- 

LDA 

00366* 101005 

MOV 

00367*001400 

JMP 

00370*020006- 

LDA 

0037 1  *  1 OI0O4 

MOV 

00372*004413 

JSR 

00373  *  020007- 

LDA 

00374  *  101004 

MOV 

00375*000403 

J.MP 

00376*034440 

LDA 

00377  *001 403 

JMP 

00400*024004- 

BON: 

LDA 

00401  *  106405 

SUB 

00402*002431 

JMP 

00403*034433 

LDA 

00404*001 400 

JMP 

00405*054430 

i 

COPI : 

STA 

00406*020004- 

LDA 

00407*0240 1 0- 

LDA 

00410* 1 0641 4 

SUB# 

0041 1*001 400 

JMP 

00412*0060025 

JSR 

00413*000007 

7 

00414*004717 

JSR 

00415*0060065 

JSR 

00416*0060025 

JSR 

00417*000033 

27. 

00420*0060025 

JSR 

00421 *000027 

23. 

00422*0060075 

JSR 

00423*024010- 

LDA 

00424*030006- 

LDA 

00425*147000 

ADD 

00426*044010- 

STA 

00427*034406 

LDA 

00430*001400 

JMP 

00431 *001750 

i 

C1000: 

1000. 

00432*023420 

ITMAX: 

10000 

00433*000310* 

CONTIN: 

CONTR 

00434*000000 

TERMITE 

:0 

00435*000000 

SAV3A: 

0 

00436*000000 

SAVE3: 

0 

00437*000000 

5AV3P: 

0 

00440*041440 

CYC: 

.TXT 

00441 *041531 

YC 

00442*042514 

LE 

00443*020123 

S 

00444*020040 

00445*042504 

DE 

00446*040506 

EA 

00447*046125 

UL 

00450*020124 

T 

00451 *052515 

MU 

00452*030075 

=  0 

00453*000056 

•  ♦ 

00454*000040 

MAT: 

.TXT 

00455*040440 

OPTMS : 

•  TXT 

3. SAVE  3 

0..OPTN  ; ACTIVATE  OPTIONS  ? 

0.0. SnR 

0.3 

e.  .copy 

0  >  0  .  S  H  R 
COP  I 
0.  .STOP 
0.0. ScR 
BON 

3.SAVE3 

0.3 

1.. 1.HI 
0.1. SNR 
QCO  MIN 
3.SAVE3 
0.3 

3.SAV3A 
0. . ITKI 
t . . COPCT 
0. ! .S5R 
0.3 
S.PRNI 

IRING  BELL 

TPRN 

0.DISS 

0.PRN1 

7  ASCI  I  ESC 

s.prni 

I ASCI  I  ETB 

# .PAGE 
J.. COPCT 

2..  COPY 

2.1 

1 . . COPCT 
3.SAV3A 
0.3 


*  C 


*  * 
*  A 


C-144 


< 


y 

r 


00456*040526  VA 
00457*046111  IL 
00460*041101  AB 
00461*042514  LE 
00462*047440  o 

00463*052120  PT 
00464*047511  10 

00465*051516  NS 
00466*000040  * 

00467*020050  CRMS:  .TXT  *( 

00470*044510  HI 
00471 *020124  T 
00472*027103  C. 

00473*027122  R. 

00474*052040  T 
00475*020117  0 

00476*047507  GO 
00477*041040  B 
00500*041501  AC 
00501*020113  K 
00502*047516  NO 
00503*020127  U 
00504*020055  - 

00505*047101  AN 
00506*020131  Y 
00507*052117  OT 
00510*042510  HE 
00511*020122  R 
00512*042513  KE 
00513*020131  Y 
00514*047524  TO 
00515'041440  C 
00516*047117  ON 
00517*044524  T I 
00520*052516  NU 
00521*020105  E 
00522*000051  )* 

00523*040450  Nl:  .TXT  *CA 

00524*051516  NS 

00525*042527  WE 

00526*020122  R 

00527*046101  AL 

00530*020114  L 

00531*052521  QU 

00532*051505  ES 

00533*044524  TI 

00534*047117  ON 

00535*026523  S- 

00536*052123  ST 

00537*047101  AN 

00540*040504  DA 

00541 *042122  RD 

00542*040440  A 

00543*051516  NS 

00544*042527  WE 

00545*051522  RS 

00546*047072  :N 

00547*031454  ,3 

00550*041450  (C 

00551*024522  R) 


1 


C-145 


00552*047054  >N 
00553*047054  >N 
00554*000051  >* 

00555 ' 047  504  01  S  .TXT  *D0 

00556*054440  Y 

00557*052517  0U 

00560*053440  to 

00561*051511  IS 

00562*020110  H 

00563*047524  TO 

00564*050040  P 

00565*044522  RI 

00566*052116  NT 

00567*040440  A 

00570*050120  PP 

00571*044514  LI 

00572*042105  ED 

00573*046040  L 

00574*040517  OA 

00575*020104  D 

00576*040526  VA 

00577*052514  LU 

00600*051505  ES 

00601 *024040  < 

00602*027531  Y/ 

00603*024516  N) 

00604*000077  ?* 

00605*044127  02 :  .TXT  *WH 

00606*052101  AT 

00607*053440  W 

00610*052517  OU 

00611*042114  LD 

00612*054440  Y 

00613*052517  OU 

006 1 4 ' 046040  L 

00615*045511  IK 

00616*020105  E 

00617*051501  AS 

00620*052040  T 

00621*042510  HE 

00622*053040  V 

00623*041505  EC 

00624*047524  TO 

00625*020122  R 

00626*041523  SC 

00627*046101  AL 

00630*020105  E 

00631*040506  FA 

00632*052103  CT 

00633 '051 117  OR 

00634*024040  ( 

00635*026116  N> 

00636*051103  CR 
00637*037451  )? 

00640*000000  * 

00641*027113  KMS:  .TXT  *«• 

00642*027105  E. 

00643*042520  PE 
00644*045501  AK 
00645*000000  * 


C-146 


00646* 047 504  03:  .TXT  *D0 

00647*054440  Y 

00650*05251 7  0U 

00651 *053440  W 

00652*051511  IS 

00653*020110  H 

00654*047524  TO 

00655*052440  U 

00656*042523  S£ 

00657*040440  A 
00660*052125  UT 
00661*041517  OC 
00662*050117  OP 
00663*020131  Y 
00664*051117  OR 
00665*040440  A 
00666*052125  UT 
00667*051517  OS 
00670*047524  TO 
00671*020120  P 
00672*054450  ( Y 

00673*047057  /N 
00674*037451  )? 

00675*000000  * 

00676*044127  04:  .TXT  *WH 

00677*052101  AT 
0070T  053440  W 
00701*052517  OU 
00702*042114  LD 
00703*054440  Y 
00704*05^517  OU 
00705*046040  L 
00706*045511  IK 
00707*020105  E 
00710*051501  AS 
00711*052040  T 
00712*042510  HE 
00713*041440  C 
00714*050117  OP 
00715*020131  Y 
00716*047111  IN 
0C  . 17  *051  103  CR 
0720*046505  EM 
00721*047105  EN 
00722*020124  T 
00723*047050  <  N 

0*0724 ' 041  454  *C 
00725*024522  R) 

00726 ' 000077  ?* 

00727*052101  05:  .TXT  *AT 

00730*053440  W 

0073 1 ' 04051 0  HA 

00732*020124  T 

00733*047520  PO 

00734*047111  IN 

00735*020124  T 

00736*047527  WO 

00737*046125  UL 

00743*020)04  D 

00741*047531  YO 


1 


\ 


1 


0074a 

•020125 

U 

00743 

•044514 

LI 

00744 

’  04^5  1  3 

KE 

007  45 

•052040 

T 

00746 

•0201  1  7 

0 

00747 

•052123 

ST 

00750 

’0501  17 

OP 

G0751 

’024340 

( 

007  52 

•0261 1 6 

N. 

00753 

•051 103 

CR 

00754 

•037451 

)  ? 

00755 

•000000 

* 

00756 

•047516 

N2i 

00757 

•  042524 

TE 

007  60 

•020072 

: 

00761 

*044124 

TH 

00762 

•020105 

E 

00763 

•047596 

FO 

00764 

’  0461  1  4 

LL 

00765 

•053517 

ow 

00766 

•0471  1  1 

IN 

00767 

*020107 

G 

00770' 

■052516 

NU 

00771 

•041115 

MB 

00772 

’051 105 

ER 

00773' 

‘  020123 

S 

00774' 

■051 101 

AR 

00775 

■020105 

E 

00776' 

’052515 

MU 

00777 ' 

’0521 14 

LT 

01000' 

'0501 1 1 

IP 

01001 ' 

042514 

LE 

01002' 

'020123 

S 

01003' 

'043t 1 7 

OF 

01004’ 

'030440 

l 

01005’ 

'030060 

00 

01006’ 

030060 

00 

01007’ 

000000 

* 

01010’ 

044450 

N3: 

01011’ 

026105 

E* 

01012’ 

044124 

TH 

01013’ 

020105 

E 

01014’ 

047503 

CO 

01015’ 

0501 1 5 

MP 

01016’ 

020056 

• 

01017 ’ 

0471  1  1 

IN 

01020’ 

042524 

TE 

01021 ’ 

050122 

RP 

01022* 

042522 

RE 

01023’ 

051524 

TS 

01024’ 

031040 

2 

01025’ 

040440 

A 

01026’ 

020123 

S 

01027’ 

030062 

20 

01030' 

033060 

00 

01031  * 

024460 

0) 

01032’ 

000000 

* 

01033* 

04451  0 

N4: 

01034* 

020124 

T 

01035’ 

040503 

CA 

•  TXT  *N0 


.TXT  *  <  I 


.TXT  *HI 


01036*051 122 
01037*04051 1 
01040*042507 
01041 *051040 
01042*052105 
01043*051 125 
01044*0201 16 
01045*047524 
01046*042440 
01047*044530 
01050*000124 
01051 *047504 
01052*054440 
01053*052517 
01054*053440 
01055*05151 l 
01056*0201 10 
01057*047524 
01060*052440 
01061 *042523 
01062*045440 
01063*042456 
01064*055056 
01065*051 105 
01066*0241 1 7 
01067*027531 
01070*024516 
01071 *000077 


RR 

IA 

GE 

R 

ET 

UR 

N 

TO 
E 
XI 
T  * 

06  S  .TXT 

Y 
OU 
w 
IS 
H 

TO 
U 
SE 
K 
.E 
.  2 
ER 
0< 

Y/ 

N> 

?* 


♦  DO 


•  END 


C-149 


.TITL 


I 

S  SEVERAL  INPUT 

> 


00000-00O277  * 

• SPRP : 

•  ENT 

•  ENT 

•  ENT 

•  EM 

•  EXTO 

•  EXTD 
.  EX  TD 

•  EXTD 
.EXTD 

•  EXTD 
.  EXTN 
.EREL 
PROP 

0000 1 -P00000 • 

.  INP: 

INPUT 

00002-001003’ 

.LODE*. 

LODE 

00003-001  1 S 7  • 

•sign; 

SGN 

00004-001 174’ 

. BRNG  : 

BRNG 

00005-001202* 

■  NGA  T  : 

NC-AT 

00006-001043* 

•  MOVE : 

MOVE 

00007-000000 

.  XCC-O: 

0 

00010-000000 

. YCGD : 

0 

000 1 1 -000000 

.SYCL: 

0 

00012-000000 

•MFLG : 

0 

00013-000000 

• DMBN : 

0 

00014-000000 

. OMBP : 

0 

0O01 5-000000 

•  UO: 

0 

e00 1 6 -000000 

•  UK  : 

0 

00017-000312* 

. UI NP : 

UINP 

00020-1 77777 

« PEMT : 

177777 

00001-177777 

.PRES*. 

177777 

00022-000413* 

.PSEC: 

EGGI 

000012 

•  NREL 
.RDX 

J 

JDISPLAY  PROPER 


1  USER 

< 

INPUT: 

TO  TYPE  I 

00000 ' 054467 

STA 

00001  *  006003? 

IN2: 

JSR 

00002*006004*: 

JSR 

00003*001222* 

TEXT! 

00004* 177634 

-  1  00 

00005*001 130 

600 

00006  *  0060045 

JSR 

00007  *  00 1 234  * 

TEXT2 

00010  *  t  77634 

-100 

0001 1 *001034 

540 

000  1  2  *  006004*- 

JSR 

000 1 3  *  02  t  237  * 

TEXT3 

00014* 177160 

-400 

00015*001 034 

S  40 

0001 6  *0060045 

JSR 

00017  *001 ?44  * 

TEXT  4 

00020*0001 44 

1  00 

00021 *000776 

510 

00022  ’  020006* 

LDA 

INPUT 
ROUT  1 NE  S 

. SPRP.  .  1NP.  .UlNP*  .UD*  .U«v*  .  PSEO 
FEET*  POUND *MOVFL*  .  PE. 'I  I  *  .PnES 

•  LODE*  . MO vE  *  •  XCGD  *  •  Y  COD 
.SYCL.  •  MFLG  *  . DMBN*  .  DM3P 

.  PRN  1  *  .  PL i A  »  •  PP  GE  *  •  MESS  *  •  I  PRN 
MU* -DISA* •  C  U  R  A  * .ALPH*  .PhN2 
.AX  IS*  .D3IN.  .C-EI  I  »  .  PRN2 
. T  PRN  * .HI IC 

•  CHEK  * . KORD* . HI TS*  *080* -M  7* .MEM 
. MSKR, .LENG* .P0N1 * . P0N2* . RE8c 
COM  R 


JX  DISP 
t Y  DISP 
IDCM  CYCLES 
JDCM  FLAB  -  C  =  OFF 
I  **  BLOCK  NO. 
t  **  BLOCK  POINTER 
JUNII  OF  DISPLACEMENT 
JUMT  KEIGHT 

I  ENTRY  FOR  UMTS  INPUT  ROUTINE 
» PRESS .  SEC-MEM  EMPTY  HEAD 
*  PRESS .  SEC-MEM  LIST  HEAD 


1  0 

Y  TABLE  AND  *AIT  FOR 
NEK  FRICTION  COEFFICIENTS. 

3.SPSAV 
§ • PAGE 

e .mess 


g.MESS 


@ .MESS 


t .MESS 


0  *  MU 


C-150 


00023  ’  004456 

JSR 

FRAC 

00024  *  0U062P 

400 

00025  *  0P07  7  6 

5  1  0 

.-INITIALISE  LOO?  VARIABLES 

O0026  ’  O3OO00- 

LDA 

2  .  .  SPrtP 

O0027  *  1  5  MOO 

Inc 

2,2 

00030 ’050440 

sta 

2, POINT 

0003!  *  000440 

LDA 

0  »  N  1  6 

0003? ’ 040434 

STA 

0.CM 

00033*01 4433 

DS2 

CM 

00034  *  1 02520 

SUB2L 

0,0  J  START  @  1  NO I  0 

00035 ’040435 

STA 

0  ,  NUM 

00036 ’ 030436 

LDA 

0  ,  Y  ! 

00037  *040405 

STA 

0,  YY 

00040*04041 3 

STA 

0.YYY 

t  SCAN 

THROUGH 

PROPERTY  TYPES, 

5  PR  I  NT  I  NO  FRICTION  FOR  EACH 

00041 *0060045 

TOP: 

JSR 

8  •  MESS 

0004?  *  00 1 256  * 

TEXTS 

00043*0001 44 

1  00 

00044  *  000000 

YY: 

0 

00045  *  0?04?5 

LDA 

0,NUM 

00046  *  0060055 

JSR 

8.IPRN 

00047  *  000002 

2 

00050*  0??4?0 

LDA 

0.8POINT  JPKOPERT 

00051 *004430 

JSR 

FRAC 

0005?  *  000620 

400 

PO053  *  000  5100 

YYY: 

0 

0000 1 0 

«RDX 

8 

00054*01041 4 

IS?. 

POINT 

00055*01041 5 

IS? 

NUM 

00056*02041 5 

LDA 

0,Y INC 

00057  *024774 

LDA 

1  ,YYY 

00060*1 06400 

SUB 

0,1  J  NEW  Y 

00061 *04477? 

STA 

1  ,  YYY 

00062*044762 

STA 

1  ,  Y  Y 

00063*014403 

DSZ 

CM 

00064*000755 

JMP 

TOP 

00065  *  000446 

JMP 

GET 

00066*000000 

CNT  : 

0 

00067  *000000 

SPSAV 

:  0 

00070*000000 

POINT 

:  0 

00071 *000012 

N1  6: 

1  2 

JSIZE  of  property  TABLE 

00072*000000 

num: 

0 

00001 ? 

•  RDX 

10 

000026 

YROW  = 

22 

0007  50 

Y  TOP  = 

488 

00041 4 

YROT  = 

-1 0+YROW+YTOP 

00073  *000026 

YINC: 

Y  ROW 

JDISTANCE  BETWEEN  LINES 

00074  *00072? 

Y  l ; 

YTOP-YROW 

00075*000764 

XI  : 

500 

0OO7 6  *  0004 1 4 

YL: 

YROT 

00001 0 

.RDX 

8 

00077  *000215 

CR: 

I 5+200 

00100*000256 

DOT: 

*’.♦200 

ITO  PRINT  FRACTION  (WITH  N  DECIMAL 

1  PLACES )  AT  CX 

,Y>  ON  SCREEN 

i 

J  JSR  FRAC 

1  X 


1 

Y 

1FRACTI 

ON  IN  ACC 

0000(13 

» 

N  =  3 

00 101* 054404 

FRAC: 

STA 

3  *  F  S  A  v 

00100 ’ 040404 

STA 

0,FR 

00103*001  4(10 

LDA 

0.0,3 

00104*  00540 | 

LDA 

1,1,3 

PP  I  05  '  (1060005 

JSR 

g.PLTS 

00 1 P6  *  O0P0P0 

0 

00 1 P7  *00600! 6 

JSR 

@ • PRN 1 

001 1 0*000037 

37 

001  U  ’  00600  1  * 

JSR 

e.PRN! 

00 1  1 0  *  000060 

"0 

001 13*0060015 

JSR 

@ .PfiNl 

001 1 4*000056 

M 

• 

001 1 5*00441 1 

LDA 

1  ,FR 

001 1 6*03041 4 

LDA 

P.C1000 

00117*1 00400 

SUP 

0,0 

00100*073301 

MUL 

00t  01  *0060055 

JSR 

@  .  IPRN 

00100* 177775 

-N 

00103*034400 

LDA 

3.FSAV 

00104*001400 

JMP 

2,3 

00105*000000 

FSAV: 

0 

00106*000000 

FR: 

0 

00107  *000000 

CHAR: 

0 

00130*000000 

X: 

0 

00131 *000000 

y: 

0 

000010 

•  RDX 

1  0 

00 1 30 ' 001 7  S0 

Cl  000: 

1  000 

IS ET  AT 

1  0*  *N 

000010 

t 

•  RDX 

S 

J 

I  PUT  UP 

t 

CURSOR 

AND  WAIT 

00133*0060105 

i 

GET: 

JSR 

P.CURS 

00134*000107* 

CHAR 

001 35*000130* 

X 

00136*000131  * 

r 

00137*00601  15 

JSR 

P.ALPH 

00140*000767 

LDA 

0, CHA R 

00141 *004736 

LDA 

1  ,CR 

00140* 1 06414 

SUB# 

0 , 1  ,  S  2  R 

ICHECK  FOR 

"RE  I  URN’* 

00143*000405 

JMP 

NEXT 

00144*0060035 

JSR 

@ .PAGE 

I NO  CHANGE » 

RETURN. 

00145*0060165 

JSR 

#.TPRN 

001 46*0060075 

JSR 

e.oiss 

•  AND  EXIT 

00147  *000700 

JMP 

S5PSA V 

00150*024730 

NEXT : 

LDA 

1  .DOT 

001 5t  *  1 06414 

SUB# 

0,1 ,S2R 

I  CHECK  FOR 

DEC.  POINT 

00150*000761 

JMP 

GET 

INO  GOOD!  K 

EEP  WAITING 

001 53*004756 

LDA 

1  ,Y 

001 54*000720 

LDA 

0,  YL 

001 55* I06423 

5UB2 

0, I » SNC 

.CHECK  FOR 

LOWER  LIMIT 

001 56*000755 

JMP 

GET 

00157* 100400 

SUB 

0,0 

00160*030713 

LDA 

2 , Y INC 

00161*073101 

DIV 

00160*000707 

LDA 

0,M6 

00163* 100403 

SUB? 

1  #  0 ,  SNC 

ICHECK  FOR 

UPPER  LIMIT 

p 


001 64 • OOP  404  JMP 

00165*030000-  LDA 

00166*11 3000  ADD 

00 167*0  50  437  ST  A 

•SET  UP  LOCAT 
00170*1 02400  SUB 

00171 *03070?  LDA 

00170*073 3 01  MUL 

00173*000703  LDA 

00 1 7  A  *  107  000  ADD 

00175'0?0700  LDA 

00 1 7  6  *  006002?  JSR 

00177*000000  0 

00200 ' 0060 1 1 5  JSR 

00231  '020726  LDA 

00202 *0060125  JSR 

00003*004430  JSR 

00204*020425  LDA 

00005*030401  LDA 

00006*041000  STA 

00007*000704  JMP 

00010*101404  TRYMU:  INC 

00011*000700  JMP 

00010*004413  LDA 

00013*000660  LDA 

0001 4 '0060005  JSR 

00015*000000  0 

00016*0060115  JSR 

00017*000710  LDA 

00000*0060105  JSR 

0000 1 *00441?  JSR 

00?  00  *  000407  LDA 

00003*040006*'  STA 

00004 *000707  JMP 

00005*000776  YMU :  13+YROV. 

00006*000000  PPnt :  0 

00007*000000  NN!  0 

00030*000005  NT  IMS  5 

00031 '000000  SUM:  0 

00030*000000  K5AV:  0 

00?33  *054777  KEYB:  STA 

00034*034434  LDA 

00235 ' 054433  STA 

00236*102400  SUB 

00237*040772  STA 

00240*020770  LDA 

00241  '040766  STA 

00240*0060155  GIT:  JSR 

00243*0060*.  26  JSR 

00244*0060205  JSR 

00245*000415  JMP 

00246*105000  MOV 

00247*034420  LDA 

00250*031400  LDA 

P0251  *  1 O2400  SUB 

00252*073301  MUL 

00253*020756  LOA 

00254  *  1 23000  ADD 

00255*040754  STA 

00256*010411  I S2 


C-152 

TRYMU 
2, . SPRP 

0.2  JPOINTER  TO  PROP  TABLE 

2. PPNT 

ON  TO  PRINT  NEK  NUMBER 
0.0 

2. YINC 

0.YL 
0.  1 
0.X1 
@  .PLTS 

?  •  ALPH 

0.CHAR 
@  •  PRN2 
KEYB 
0.  SUM 
2  .PPNT 

0.0.2  1  ST  ORE  NEK  FRICTION 

GET 

0.0. S£R  1  CHECK  FOR  DEFAULT  VALUE 

GET 

1  .YMU 

0.  X  1 

e.PLTS 

e.ALPH 

0 » CHAR  t  SEND  OUT  DEC-  POINT 

&.PRN2 

KEYB 

0.  SUM 

0.MU 

GET 

Y  ROT 


3.KSAV 
3.TBL 
3.TBLSV 
0.0 
0.  SUM 
0.NTIM 
0  .  NN 
S.GETT 
@  .  PRN2 
e  .CHEK 
ERROR 
R.  1 

3.TBLSV 

2.0,3  JGEI  MULTIPLIER 

C.0 

O.SUM 

I .0  I  ADD  IN  NEK  DIGIT 

O.SUM 

TBL5V 


C-153 


00257  ’01  4750 

DSc 

NN 

00260*000762 

JMP 

GIT 

00061  ' 0097  Si 

JMP 

SKSAV 

JEXIT  FOR  TOO  MANY 

00262 '02441 4 

ERROR: 

LD4 

1 .CRNP 

P0263 ' 122415 

SUB* 

l .O.SNR 

00264 '002746 

JMP 

@  KSA  V 

{GOOD  EXIT 

00265 ' P024PI 

JMP 

eiNP 

J  BAD  EXIT 

00266 ' 00000 1  ' 

INP: 

IN2 

00267 '000000 

TBLSV: 

0 

014631 

A  1  =77777/5 

000012 

.  RDX 

10 

001217 

A2= A l  /I  0 

000101 

A3=A2/t  0 

0O0P06 

A  4=  A  3  /  1  0 

000000 

A5=A4/1 0 

00001 0 

.RDX 

8 

00270 • 00027  I  * 

T8L : 

.♦1 

00271 '014631 

A  1 

00272*001217 

A2 

00273 ' 000 l 0  I 

A3 

00274 '0O00O6 

A  4 

00275' 000000 

A5 

00276*00001 5 

CRNP: 

15 

ICARRIAGE  RET.  NO  PAR. 

000000 

PROP: 

j table 

FOR  FRICTION  COEFFICIENTS 

000012 

« 8LK 

12 

JROUTINE  TO  ACCEPT 
J 


INPUT  OF  UNI  TS  FROM  SCREEN 


000012 

.RDX 

10 

0031 1 '000000 

USAV: 

0 

00312*054777 

UINP: 

STA 

3. USAV 

003 1 3 '0360035 

JSR 

8  .PAGE 

00314'PO6004S 

JSR 

@  ..MESS 

003 1 5 ' O0 1 264 ' 

TEXTS 

00316*177634 

-100 

00317 '001 1 30 

600 

00320*0360045 

JSR 

e  .MESS 

00321 '001305* 

TEXT9 

00322*177634 

-100 

00323*001065 

565 

00324 '0O6004S 

JSR 

9  .MESS 

00325*001312* 

TEX  1  0 

00326*000342 

226 

00327 '001 065 

565 

00330*0060135 

JSR 

c.axis 

00331 '001412 

778 

00332*000144 

100 

00333*000550 

360 

00334*0060045 

JSR 

9  .MESS 

00335 'O01337' 

TEX  1  1 

00336 '0001 44 

100 

00337*000620 

400 

00340*0060145 

JSR 

t  .D3IN 

00341 *044015- 

STA 

1  .  .00 

00342*0042215 

JSR 

A.VORD 

00343*000361  * 

FEET 

00344 ' 0060045 

JSR 

f  .MESS 

00345*001 365' 

TEX  1  2 

J  GET  0 1  STANCE  UNIT 

J  GET  STRING 
J  S  T  ORAGE  LOCATION 


C-154 


00346 ' 000 1 44 

100 

00347 '0003! 0 

200 

000010 

.RDX 

8 

00350 '00601 4? 

JSR 

e  .DBIN 

JGET  UNIT  WEIGHT 

00351 *044016- 

STA 

i .  .uw 

0035?  '0060015: 

JSR 

A  .WORD 

.-FORCE  DESCRIPTOR 

00353*00037?' 

POUND 

00354*00601 5S 

JSR 

g.GETT 

00355 ' 006003? 

JSR 

e  .PAGE 

00356*00601 6S 

JSR 

@  .  TPRN 

00357 ' 006007  5 

JSR 

@  .DISS 

00360 ' 00?7  3 1 

JMP 

susav 

00001 1 

FEET! 

.  BLK 

1 1 

) BYTE  STRING  FOR  DISPL. 

00001 l 

POUND! 

• 

.  BLK 

1 1 

1  BYTE  STRING  FOR  FORCE 

J 

i INPUT 
* 

OF  PRESSURE  SEGMENTS 

00403 ' 006 30 45 

f 

ERR: 

JSR 

@  .MESS 

000012 

.RDX 

10 

00404*001417 ' 

TOBIG 

00405*000310 

200 

00406*000764 

500 

000010 

.RDX 

8 

00407  *000405 

JMP 

EGGS 

00410*000000 

EGG3 : 

0 

0041 1 *000000 

FORIN: 

0 

000012 

•  RDX 

10 

00412*000175 

N  1  25 ! 

125 

000010 

.RDX 

8 

00413*054775 

EGG1  ! 

STA 

3/EGG3 

00414*0060105 

EGGS.* 

JSR 

A  .CURS 

00415*000604* 

CHARI 

00416*000605* 

XP 

00417*000606* 

YP 

00420*020564 

LDA 

0, CHARI 

00421 *0060205 

JSR 

P.CHEK 

00422*002766 

JMP 

0EGG3 

;exit 

00423*00601 15 

JSR 

P  .ALPH 

00424*0060225 

JSR 

P.HITS 

00425*000605* 

XP 

00426*000606* 

YP 

00427*000765 

JMP 

EGGS 

J NO  HIT 

00430*050557 

STA 

2/AC2B 

TBLOCK  POINTER 

00431 *044557 

STA 

1  »NP 

.-EDGE  0 

00432*040557 

STA 

0/N8 

J BLOCK  0 

00433*054557 

STA 

3.21  MM 

i RE-ENTRY  ADDRESS 

00434*020551 

LDA 

0.  XP 

00435*024551 

LDA 

1  /YP 

00436*030555 

LDA 

2/C5 

/ OFFSET 

00437  * l 42400 

SUB 

2/0 

00440*1 46400 

SUB 

2/1 

00441 *006002 $ 

JSR 

e .PLTS 

00442*000000 

0 

00443*00601 1 5 

JSR 

0  .ALPH 

00444*C06001S 

JSR 

•  •  PRN  1 

J  PRINT  *  ON  SELECTED 

00445*000052 

•'* 

JEDGE 

00446*020536 

LDA 

0 / CHARI 

JGET  INITIAL  CHARACTER  BACK 

00447  *0C6023S 

JSR 

P.DB0 

J  NOW  GET  THE  REST 

00450*030572 

LDA 

2/CRR 

00451 *142414 

SUB* 

2/0/S2R 

1  CHECK  FOR  CR 

C-l  55 


00452*002736 

JMP 

A  EGG  3  iEXIT 

00453*044736 

STA 

1  *  r  0  R  l  N 

00454  *030533 

LDA 

2. AC2B 

00455  *  0°4  533 

LDA 

1  *NP 

00456*0060375 

JSR 

A. LENC. 

00457  *  1 05000 

MOV 

0»  1 

00460*030731 

LDA 

2  >  F Ok  I N 

00461 ' 1  03400 

SUB 

P»0 

00463  *073301 

MUL 

00463  *  030737 

LDA 

2»M 25 

00464  *  1 4351 3 

SUBL* 

2»0*SNC  l CHECK  REFORE  DIVIDING 

00465*0007 1 6 

JMP 

ERR 

00466*07310! 

D  I  V 

00467  *  0 44* A4 

STA 

1  *  E GKCE 

00470  *000573 

JMP 

CCMPM  jCOMPUTE  MOMENT 

0047 1 ' 004440 

TWIT:  jsr 

EXIST  J  SEE  IF  SEGMENT  ExlSlS 

00473*000463 

JMP 

NEWEN  1  NO *  MAKE  A  NEW  ONE 

00473*020550 

LDA 

0  *F  CRCE 

00474  *  101004 

MOV 

0*0>S eR  J  CHECK  FOR  EERO  FORCE 

00475*000524 

JMP 

REST  1  JEMER  NEW  FORCE  In  OLD 

»  THE  FOLLOW  I NC- 

DELETES  A  DEAD  PRESSURE  SEGMENT 

00476*031003 

LDA 

0*2*2  JLINK  FIELD  IN  DEAD  SEG  » 

00477*041 40O 

STA 

0*0*3  1  STORE  IN  PREVIOUS  ONE 

00500*030320- 

LDA 

0..PEMT  JEMPTY  LIST  HEAD 

00501 *050020- 

STA-  * 

*■  2  *’»PEMT  »  ADDR •  OF  DEAD  SEC-. 

00502 '041 0O2 

STA 

0*2*2  1LINK  UP  WITH  OTHERS 

l NOW  SEE  IF  THERE  ARE  ANY  MORE  HITS 

00503*034507 

AGAIN:  LDA 

3*  2 1. MM 

00504*005401 

JSR 

1*3  J  RE-ENTER  **HITS**  *IIH 

00505*000605* 

XP 

iRETURN  TO  HERE 

00506*000606* 

YP 

00507*000705 

JMP 

EGGS  1  NO  MORE  HITS 

00510*054502 

STA 

3* 2 I  MM 

0051 1 *050476 

STA 

2* AC2B 

00512*044476 

STA 

l  »  NP 

00513*040476 

STA 

0.NB 

00514*006027? 

JSR 

P  .LENC- 

00515* 105000 

MOV 

0*1 

00516*030673 

LDA 

2  *  FOR  I N 

00517* 102400 

SUB 

0*0 

00520*073301 

MUL 

00521 *03067 1 

LDA 

2.N125 

00522  *  1 42513 

SUBL# 

2*0*  SNC  i CHECK  BEFORE  DIVIDING 

00523*000660 

JMP 

ERR 

00524*073101 

DIV 

00525*04451  6 

STA 

1  .FORCE 

00526 ' 000534 

JMP 

COMPM  J  AROUND  WE  C-0  AGAIN 

jthe  FOLLOWING 

CHECKS  IF  A  PRESSURE  SEG.  ALREADY 

00527*000000 

EX3:  0 

00530*000021- 

PRADD:  -PRES 

00531 *030021- 

EXIST:  LDA 

2*. PRES  ;list  head 

00532*1 51112 

MOVL# 

2*2*  SEC 

00533*001400 

JMP 

0*3  J  NO  SEGMENTS 

00534*054773 

STA 

3  *  EX3 

00535*024454 

LDA 

1  jNB 

00536*020452 

LDA 

0*NP 

00537  *  1 0130O 

M0V5 

0*0 

00540* 1 07000 

ADD 

0*1  JNPNB 

00541 '034767 

LDA 

3*  PRADD  JPREVIOUS  HEAD  IN  AC3 

00542*021 000 

ANCHOR:  LDA 

0*0*2  M  ST  WORD 

C-156 


00543  *  10641  4 

SUB* 

0.  1  .S2R 

1  SAME  NPNB? 

00544  *  000403 

JMP 

CHAIN 

1  NO J  KEEP  GOING 

00545*010762 

IS? 

EX3 

00546  *00276 1 

JMP 

@EX3 

l GOOD  EXIT 

00547 ' 1 55400 

CHAIN: 

INC 

2.3 

00550* 1 75400 

INC 

3.3 

00551 *031002 

LDA 

2.2.2 

jner  seg. 

00552* 151112 

MOVL# 

2.2.S2C 

00553  *  002754 

JMP 

8EX3 

JEND  OF  CHAIN!  EXIT! 

00554*000766 

JMP 

ANCHOR 

; THE  FOLLOWING 

CREATES  < 

A  NEW  PRESSURE  SEG.  ENTRY 

00555*020466 

nehen: 

LDA 

0. FORCE 

00556* 101 005 

MOV 

0.0. SNR 

00557*000724 

JMP 

AC-AIN 

00560*030020- 

LDA 

2. • PEMT 

!TRY  EMPTY  P.  LIST 

00561  *  1 51  1  12 

MOVL# 

2.2.S2C 

00562*000407 

JMP 

FRMEM 

iMUST  USE  VIRGIN  MEMORY 

e0563  *021 002 

LDA 

0.2.2 

!OLD  LINK 

00564*040020- 

STA 

0. .PEMT 

JREVISE  EMPT  POINTER 

00565*034021- 

LDA 

3. .PRES 

J  CURRENT  HEAD  OF  P.  LIST 

00566*055002 

STA 

3.2.2 

l NEK  LINK 

00567*050021- 

STA 

2. .PRES 

1  INSERT  NEU  P.  SEG. 

00570*000430 

JMP 

REST 

I  NO w  PUT  IN  DATA 

0057 1 *0300245 

FRMEM: 

LDA 

2.  »M7 

INEXT  EREE  LOCATION- 

00572*0200255 

LDA 

0.  .MEM 

1  HIGHEST  MEMORY 

00573*024452 

LDA 

I  .S12PR 

} WORDS  NEEDED 

00574* 147000 

ADD 

2.1 

00575*122513 

SU8L# 

1,0. SNC 

J  OVERFLOW  ? 

00576*000416 

JMP 

ALLOK 

»  NO 

000012 

•  RDX 

10 

00577*0060045 

JSR 

0  .MESS 

t PUT  OUT  MESSAGE 

00600*001406* 

MOVFL 

00601 *000310 

200 

00602*000574 

380 

000010 

.RDX 

8 

00603*000700 

JMP 

AGAIN 

00604*000000 

CHARI : 

0 

00605*000000 

XP: 

0 

00606*000000 

YP: 

0 

00607*000000 

AC2B: 

0 

00610*000000 

NP: 

0 

0061 1 *000000 

NB: 

0 

00612*000000 

H  I  MM  * 

0 

00613*000000 

C5: 

0 

00614*0440245 

ALLOK! 

STA 

t  .  .M7 

JREVISE  FREE  POINTER 

00615*020021- 

LDA 

0. .PRES 

00616*041002 

STA 

0.2.2 

00617  *050021  - 

STA 

2. .PRES 

00620*020423 

REST: 

LDA 

0. FORCE 

J NORMAL  FORCE 

00621 *041001 

REST  1 : 

STA 

0.1  .2 

00622*020422 

LDA 

0.MOMNT 

J MOMENT 

00623*041 003 

STA 

0.3.2 

00624*024765 

LDA 

1  .NB 

00625  *  0°0763 

LDA 

0  »  NP 

00626* 101 300 

MOVS 

0.0 

00627  *  123000 

ADD 

1  >0 

J  NPNB 

00630*041000 

STA 

0.0.2 

1  HEAD  OF  GROUP 

00631 *030756 

LDA 

2.AC2B 

J BLOCK  POINTER 

00632*021000 

LDA 

0.0.2 

J CONTROL  LORD 

00633  *  1 00000 

COM 

0.0 

C-157 


i 


i 


00634*034412 

LDA 

00635  *  1 63400 

AND 

00636’ 100000 

COM 

00637 ’041000 

STA 

B0640 '006032s 

JSR 

00641 *000642 

JMP 

00642*00001 5 

CRRs 

1  5 

00643*000000 

FORCES 

0 

00644*000000 

MOMNT : 

0 

00645*000006 

SI2PR: 

6 

00646* 177377 

PFLAGs 

1  77377 

00647  *000000 

X  A  8 

0 

00650*000000 

XB: 

0 

00651  *  000000 

Ya: 

0 

00652*000000 

YB: 

0 

00653*000000 

LNGs 

0 

00654*000000 

XD  s 

0 

00655*000000 

YDS 

0 

00656*000000 

xcc: 

0 

00657*000000 

YCCs 

0 

00660*000000 

HI  s 

0 

00661 *000000 

LOS 

0 

00662*030725 

l 

COMPMS 

LDA 

00663*024725 

LDA 

00664*006030S 

JSR 

00665*040762 

STA 

00666*044763 

STA 

00667*024721 

LDA 

00670*006027$ 

JSR 

00671 *040762 

STA 

00672*021000 

LDA 

00673*034026$ 

LDA 

00674*1 63400 

AND 

00675* 125400 

INC 

00676*122415 

SUB# 

00677 •  126400 

SUB 

00700  *  006031 S 

JSR 

00701 *034746 

LDA 

00702*162400 

SUB 

00703*034746 

LDA 

00704* I 66400 

SUB 

00705*040747 

STA 

00706*044747 

STA 

00707*021001 

LDA 

007 10*024675 

LDA 

00711 ’ 122400 

SUB 

00712*040744 

STA 

00713*021003 

LDA 

00714*024672 

LDA 

00715*122400 

SUB 

00716*040741 

STA 

00717*004446 

JSR 

00720*000655’ 

YD 

00721 *000657  * 

YCC 

00722*040736 

STA 

00723*044736 

STA 

00724*004441 

JSR 

00725*000654* 

XD 

00726*000656* 

XCC 

3>PrL&G 

3/0 

0/0 

0/0.2  i SET  PRESSURE  FLA G 
e.REBH  iREBOXl  UPDATE  FX/FY 
AGAIN 


2/AC2B 
1/NP 
e.PONi 
0/XA 
1/ YA 
l/NP 
S.LENG 
0/LNG 
0/  0/2 
3/ »MSKR 
3/0 
I  /  t 

I  /0/SNR 

1/1  m US?  BE  FIRST  CORNER 

S.P0N2 

3/XA 

3/0  iXS-XA 

3/YA 

3/1  JYB-YA 

0/XD 
I  /YD 

0/1/2  SXC 

I/XP  JM  ID- POINT 

1/0 
0.XCC 

0.3/2  »YC 

1  /YP 
1  /  0 
0/YCC 

SMUL  JSIGNED  MULTIPLY 


O/KI 
1  /LO 
SMUL 
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00727  *030731 

LDA 

00730*034731 

LDA 

00731  *  1 6702? 

ADD? 

0073?  *  1  SI 4P0 

INC 

00733* 1 43000 

ADD 

00734* 1764O0 

SUB 

00735* 101113 

MOVL* 

00736*000405 

JMP 

00737 ’ 124405 

NEG 

P0740* 100401 

NEG 

00741  *  1 00000 

COM 

0074?  *  176520 

SUBEL 

00743*0307 1 0 

NONEG: 

LDA 

00744*073101 

D  I  V 

00745*030676 

LDA 

00746* 1 02400 

SUB 

00747*073301 

MUL 

00750  *  1 7S005 

MOV 

00751 *000404 

JMP 

00752* 124405 

NEG 

00753* 10040! 

NEG 

00754* 1 00000 

COM 

007  55  *  030026S 

BIT8: 

LDA 

00756* 143700 

ANDS 

00757* 125300 

MOVS 

00760* 1 47400 

AND 

00761  *  1 07000 

ADD 

00762*044662 

STA 

00763*002417 

JMP 

00764*000000 

SMUL3 : 

0 

00765*054777 

SMUL: 

STA 

00766*027400 

LDA 

00767*033401 

LDA 

00770*176400 

SUB 

00771 *1251 12 

MOVL* 

00772*1 57000 

ADD 

00773*1 51 1 1 2 

MOVL* 

00774*137000 

ADD 

00775*1 02400 

SUB 

00776*073301 

MUL 

00777*162400 

SUB 

01000*034764 

LDA 

01001 *001402 

JMP 

01002*000471  * 

TWT: 

TWIT 

t 

t  APPLIED  LOAD 


01003*050437 

1 

LODE: 

STA 

01004*0060045 

JSR 

01005*001431  * 

NEW  X 

01006  *000175 

125. 

01007*0001  13 

75. 

01010*006003- 

XLOD: 

JSR 

01011 *006004- 

JSR 

01012*006004$ 

JSR 

01013*001445* 

SMES 

01014*000416 

270. 

01015*0001 13 

75. 

01016*000772 

JMP 

01017*006005- 

JSR 

2,  HI 
3  ,  LO 

3,1, S?C  IADD  2  DP  NUMBERS 
2.2 
2,0 

3,3 

0,0, SNC  .NEGATIVE? 

NONEG  JNO 

1  , 1 , SNR 
0,0,SKP 
0,0 

3,3 

2  ,  LNG 

2, FORCE 

0,0 

3, 3, SNR 
BITS 
1 , 1 , SNR 
0,0, SKP 
0,0 

2 , « M  S  K  R  STAKE  MIDDLE  8  BITS 
2,0 
t  ,  1 
2,  l 

0,1  J  RESULT  IN  AC  1 

I >  MOMNT 

&TWT 

3.SMUL3 
1,00,3 
2, §  1 , 3 

3.3 

1,1, sec 

2.3 

2, 2, S2C 

1.3 

0,  0 

3,0 

3 , SMUL3 

2.3 


INPUT  t  NUM.  ) 

2 , BLKPT 
P.MESS 


e.SIGN  S  GET  SIGN  OF  LOAD 
S.BRNG  ;GET  LOAD 
S.MESS 


XLOD 
e .NGAT 
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01 ! 03  *  000620 

400  . 

01 104*006003- 

CGX: 

JSR 

e.SIGN 

01 105*006034- 

JSR 

§ .BRNG 

01 1 06  *  0O6004S 

JSR 

e .MESS 

01107  *001445* 

SMES 

01 1 10*000764 

500. 

01111 *030620 

400  . 

01 1 12*000772 

JMP 

CGX 

01 1 13*006005- 

JSR 

g.NGAT 

01 1 14*044007- 

* 

STA 

1 » . XCGD 

01 1  1 5  *0060045 

9 

JSR 

e .MESS 

01  1  16*001531  * 

DMS4 

01 117*000226 

1  50. 

01 120*000536 

350. 

01121 *036003- 

CGY  : 

JSR 

e.SIGN 

01 122*006004- 

JSR 

e .BRNG 

01 1 23  *  006004S 

JSR 

e.MESS 

01 124*001445* 

SMES 

01 125*000764 

500. 

01126*000536 

350. 

01 127*000772 

JMP 

CGY 

01 1 30*006005- 

JSR 

e .NGAT 

01 131 *044010- 

STA 

1 1  .  YCGD 

01132*  006004S 

J 

JSR 

@ .MESS 

01133*001614* 

DMS7 

011 34*000226 

1  50. 

01 135*000454 

300. 

01136*020451 

LDA 

0>  PLUS 

01 137*006004- 

JSR 

@ .BRNG 

000005 

•  BLK 

5 

;NEED  5  SPACES  TO  USE  .BRNG 

01145*04401 1- 

} 

STA 

1 . .SYCL 

011 46*0060045 

JSR 

0.MESS 

01 147*001545* 

DMS5 

01150*000310 

200. 

01 151 *000372 

250. 

01 152*002667 

JMP 

e  CONT 

01153*000305 

i 

ESXP: 

"E+200 

1  ADD  PARITY  BIT 

01 1 54*000000 

CHRCs 

0 

01 1 55*000000 

xdm; 

0 

01156*000000 

YDM: 

i 

0 

; 

j 


01 1 57*054432 

SGN : 

STA 

3  »  GOBK 

01160*006015$ 

JSR 

e.GETT 

1 

OR 

-  FIRST 

01161 *040431 

STA 

0.SIGN 

01 1 62*024425 

LDA 

1 .PLUS 

01163*1 0641 5 

SUB# 

0. 1 .SNR 

t 

MUST 

BE  ♦ 

01 1 64*000406 

JMP 

OKI 

I 

OUT 

IF  ♦ 

01 1 65*024423 

LDA 

1 »MNUS 

01 166* 10641 5 

SUB# 

0. 1 .SNR 

i  MUST 

BE  - 

01 1 67*000403 

JMP 

OKI 

1 

OUT 

IF  - 

01 170*034421 

LDA 

3. GOBK 

01171*001401 

JMP 

1 .3 

01 1 72*034417 

OKI : 

LDA 

3. GOBK 

01 173*001 400 

JMP 

0.3 

01 174*05441 5 

BRNG: 

STA 

3/G08K 

01 175*020415 

- 

LDA 

0, SIGN 

01 176' 0O601 25 

JSR 

§  .  PRN2 

01  177  * 0060 1 4S 

JSR 

e.DBIN 

01200*03441 1 

LDA 

3.G0BK 

01201 *001405 

/ 

JMP 

5,3 

01202*020410 

• 

» 

NGATS 

LDA 

C, S I GN 

01203*030405 

LDA 

2, MNUS 

01204*1 1241 5 

SUB# 

0,2, SNR 

01205*124400 

NEG 

1  ,  1 

0 1206  *001 400 

JMP 

0,3 

01207*000053 

PLUS: 

01210*  000055 

MNUS: 

01211 *000000 

G08X : 

0 

01212*000000 

SIGN: 

0 

01213*126400 

FNSH : 

SUB 

1  >  1 

01214*044012- 

STA 

1 , .MFLG 

01215*0060045 

JSR 

@ .MESS 

01216*001562* 

DMS6 

01217*177324 

-300. 

01220*001 130 

630. 

01221 *002620 

JMP 

eCONT 

01222*052523 

TEXTl  : 

•  TXT 

*SU 

01223*043122 

RF 

01224*041501 

AC 

01225*020105 

E 

01226*051 120 

PR 

01227*0501 1 7 

OP 

01230*051 105 

ER 

01231 *044524 

T 1 

01232*051 505 

ES 

01233*000000 

* 

01234*054524 

TEXT2: 

•  TXT 

*TY 

01235*042520 

PE 

01236*000000 

♦ 

01237*051 106 

T  EXT  3 : 

.TXT 

*FR 

01243*041 51 1 

IC 

01241 *044524 

T  I 

01242*0471 17 

ON 

01243*000000 

* 

01244*042504 

TEXT  4 : 

.TXT 

*DE 

01245*040506 

FA 

01246*046125 

UL 

01247*020124 

T 

01250*052350 

<  T 

012S1 *053131 

YP 

01252*320105 

E 

01 253 ' 023043 

0 

01254*024460 

0) 

01255*000303 

★ 

01256*051 123 

TEXTS: 

•  TXT 

*  PR 

J  PR  I  NT  SIGN 
J  X  LOAD  IS  IN  ACI 


/SIGN  OF  NEW  LOAD 
/ASCII  - 


/TURN  OFF  FLAG 
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P)  1  P57 '0501  17 
01260*051  1  05 
01261 *054524 
01262*021440 
01263*023040 
01264*047 1 1 1 
01265*052520 
0  1266  *  020 1 24 
01267  *043  1  1 7 
01270*042040 
01271 *05151 1 
01272  *  040524 
01273*041 51 6 
01274*020105 
01275*047101 
01276*020104 
0  1  27  7 '047  506 
01300*041 522 
01301 *020105 
01302*047125 
01303*05211 1 
01304*000123 
01305*040503 
01 306  *  052 1 2S 
01307*04751 1 
01310*0351 1 6 

0131 1 *000000 

01312*0471 17 
01313*054514 
01 314*047040 
01315*046525 
01316*042502 
01317*051522 
01320*043040 
01321 *047522 
01322*0201 15 
01323*020061 
01324*044124 

01325*047522 
01 326*043525 
01327*0201 10 
01330 ' 030065 
01331 *030060 
01332*040440 
01333*0461 14 
01334*053517 
01335*042105 

0 1 336 ' 000000 
01337  *044127 
01 340*052101 
01341  *  042040 
01342*0201 17 
01343*047531 
01344*020125 
01 345  *  040527 
01346*05211 6 
01347*052040 
0 1350 ' 04451 0 
01351 *020123 
01352*04251 4 


OP 

ER 

TY 

# 

+ 

TEXT8S  -TXT 

PU 

T 

OF 

D 

IS 

TA 

NC 

E 

AN 

D 

FO 

RC 

E 

UN 

IT 

S* 

TEXT9 !  • TXT 

UT 
10 
N: 

♦ 

TEX10*.  *TXT 
LY 
N 
UM 
BE 
RS 
F 
RO 
M 
1 

TH 

RO 

UG 

H 

50 

00 

A 

LL 

OW 

ED 

* 

TEX  1 1 :  .TXT 
AT 
D 

0 

YO 

U 

V;A 

NT 

T 

HI 

S 

LE 


♦  IN 


♦  CA 


♦  ON 


♦  WH 


C1353* 043516 

01354*044124 

01355*05^040 

01356*0201 17 

01357*  042  522 

01360*051  120 

01361 *051505 

01362*047105 

01  363  *037524 

01364*000040 

01 365  *  044127 

01366*052101 

01  367  *044440 

01370*020123 

01371 *044124 

01372*020105 

01373*047125 

01374*0521 1 1 

01375*053440 

01376' 044505 

01377*044107 

01400*020124 

01401 *0431 17 

01402*051040 

01403*041 517 

01404*037513 

01405*000040 

01406*046407 

01407*046505 

01410*051 1  17 

01411 *020131 

01412*053117 

01413*051105 

01414*046106 

0141 5*053517 

01416*000000 

01417*050007 

01 420 ' 042522 

01421 *051523 

01422*051 125 

01423*020105 

01424*047524 

01425*0201 17 

01426*040514 

01427*043522 

01430*000105 

01431 *042516 

01432*020127 

01433*020130 

0 1 434 ' 047  514 

01435*042101 

01436*000040 

01437*042516 

01440*020127 

01441 *020131 

01442*047514 

01443*042101 

01444*000040 

01445*051 440 

01446*04351 1 


NG 

TH 

T 

0 

RE 

PR 

ES 

EN 

T? 

* 

TEX12:  .TXT 

AT 
I 

S 

TH 

E 

UN 

IT 

W 

El 

GH 

T 

OF 

R 

OC 

K? 

* 

MOVFL:  .TXT 

EM 

OR 

Y 

OV 

ER 

FL 

OW 

* 

TOBIG:  .TXT 

RE 

SS 

UR 

E 

TO 

0 

LA 
RG 
E  + 

NEWXs  .TXT 

W 

X 

LO 

AO 

* 

NERY:  .TXT 

W 

Y 

LO 

AD 

• 

SMESS  .TXT 
IG 


*WH 


*  <7  »M 


*  <7  >P 


*NE 


*NE 


*  S 


I 
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01447*020116  N 
01450*044536  FI 
01451*051522  RS 
0 1 452  *  020 124  T 
01453*046120  PL 
01454*040505  FA 
01455*042523  SE 
01456*000040  * 

01457*047111  DMSl:  .TXT  *1N 

01460*052520  PU 

01461*020124  T 

01462*044506  FI 

01463*042530  XE 

01464*020104  D 

01465*046102  BL 

01466*041517  OC 

01467*020113  K 

01470*044504  D I 

01471*050123  SP 

01472*040514  LA 

01473*042503  CE 

01474*042515  ME 

01475*052116  NT 

01476*000123  S* 

01477*031050  DMS2:  .TXT  *C2 

01500*054105  EX 

01501*030520  PI 

01502*020066  6 

01503*051511  IS 

01504*047440  0 

01505*042516  NE 

01506*051440  S 

01507*051103  CR 

01510*042505  EE 

01511*020116  N 

01512*047125  UN 

01513*052111  IT 

01514*000051  >* 

01515*020130  DMS3:  .TXT  *X 

01516*042503  CE 

01517*052116  NT 

0t 520 *047 522  RO 

01521*042111  ID 

01522*042040  D 

01523*051511  IS 

01524*046120  PL 

01525*041501  AC 

01526*046505  EM 

01527*047105  EN 

01530*000124  T* 

01531*020131  DMS4 :  .TXT  *Y 

01532*042503  CE 

01533*052116  NT 

01534*047522  RO 

01535*042111  ID 

01536*042040  D 

01537*051511  IS 

01540*046120  PL 

01541*041501  AC 

01542*046505  EM 
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01543*047105 

EN 

01  544  *  000124 

T* 

01545*044506 

DMS5 ! 

01546*04451 6 

N  I 

01 547  *044123 

SH 

01550*042105 

ED 

01551 *053454 

01552*044531 

A  I 

01553*044524 

T 1 

01554*043516 

NG 

01 555  *  040440 

A 

01556*020124 

T 

01557*047503 

CO 

01560*052116 

NT 

01561 *000122 

R* 

01562*047125 

DMS6: 

01563*047510 

HO 

01564*045517 

OK 

01565*042105 

ED 

01566*042040 

D 

01567  *046503 

CM 

01570*026440 

- 

01571 *020055 

- 

01572*052101 

AT 

01573*041440 

C 

01574*047 1 1 7 

ON 

01575*051124 

TR 

01576*000000 

* 

01577*042523 

BMES: 

01600*042514 

LE 

01601 *052103 

CT 

01602*041040 

B 

01603*047514 

LO 

01604*045503 

CK 

01605*044054 

>H 

01606*0521 1  1 

IT 

01607*040440 

A 

01610*054516 

NY 

01611 *345440 

K 

01612*054505 

EY 

01613*000000 

* 

01614*041 440 

DMS7 : 

01615*041531 

YC 

01616*042514 

LE 

01617*020123 

S 

01620*042502 

BE 

01621 *053524 

TW 

01622*042505 

EE 

01623*0201 16 

N 

01624*04751 5 

MO 

01625*042526 

VE 

01626*020123  S 
01627*000000  * 


•TXT  *FI 


•  TXT  *UN 


•TXT  *SE 


•TXT  *  C 


END 
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*  T 1 T  L  MOV i r 

BOUT  INF  TO  EXTERNALLY  MOVE  A  FIXED  BLOCK 


•  FM 

•  EX  TD 

•  EX  T  D 

•  EX  T  D 

•  EREL 


00000-000002'  .DCm: 

MOVE 

•  NREL 

# 

OOOOO'OOOOOO  RET  3 : 

0000 1  *00000  1  DMCT  : 

0 

1 

{ 

00002*054776  MOVE: 

STA 

00003  *  0240 l 3? 

LDA 

00004  *  1 25005 

MOV 

00005 '002773 

JMP 

00O06  *  0 1 47  73 

DSE 

00007  *002771 

JMP 

00010*034012? 

LDA 

0001 1  *054770 

STA 

00012  *024010? 

LDA 

00013 ' 1 35000 

MOV 

000 14*125112 

MOVL  * 

0031 5  *  1 24400 

NEG 

00016*030016?  DCMX: 

LOA 

30017 'C21 002 

LDA 

00020' 1 751 1 2 

MOVL# 

0002 !  *  000405 

JMP 

00022  *  1 23033 

ADDE 

00023*003417 

JMP 

00024  *011001 

ISE 

00025  *000405 

JMP 

P0026  * l  24400  FLIT: 

NEG 

00027 • 123022 

ADDE 

00030 '00041 2 

JMP 

00031  *  0 1 530 1 

DSE 

0003? 'O45020  CHECK: 

5TA 

00033 *04100? 

STA 

0  0074  *02401 5S 

LDA 

00035  *  006003? 

JSR 

00  ■'36*034004? 

LOA 

0  0037  *  1 75005 

MOV 

(■  004  A  *  00600  1  ? 

JSR 

00041 *000403 

JMP 

00042*045020  ok: 

STA 

00043*041 00? 

I 

00044 • 02401 1 ?  NUT : 

STA 

LDA 

00045 ■ 1 35000 

MOV 

00046* 125112 

MOVL* 

00047 • ! 24400 

NEG 

00040*030016?  OCMY: 

LOA 

00351  *02| 004 

LDA 

0 1 0  5  2  *1751  12 

MOVL* 

00053  *  000405 

JMP 

00054  *  1 23023 

ADDE 

00055 '00041 7 

JMP 

.DCM 

•DISH, -MESS, .  RE  B X , • PELG 
.MOI».FOrtD».ALLB,.ACGD,,YCGD 
•  S  7  Q  L  ,  .Mr  LG,  .STEP,  •  D  M  B  N  ,  •  D  M  B  P 


3 , RET  3 

1 » •Mr  LG  J CHECK  IF  DCM 
1,1,  SNR 

e  BE  13  {GO  BACK  NO  DCM 
DMCT  {ONLY  EVERY  .SYCL  CY 
@  BET3  {GO  BACK  NOT  RIGHT 

3. .  5YCL 

3  ,  DMC  T  {BESET  COUNTER 
1 , • XCGD  {APPLIED  X  DISP 

1  .3 

! , 1 »  S  EC  {CHECK  FOB  SIGN 
1  »  1 

2  ,  • DM BP 

0,2,2  IXCCLOW7 
3*3, SEC 

FLIT  {WAS  NEGATIVE 
I  ,  0  »  SNC 
OK 

1,2  {INCREMENT  XCCHIGH) 

CHECK 

I  ,  I 

1 , 0, SEC 
OK 

1.2  {DECREMENT  XCCHIGH) 

1 .20.2  {DEL  XC 

0,2,2 

1 ,  • DM BN 

0.REBX  ! kE-CLASSIFY  THIS  BLOCK 

3. . PFLG 
3, 3, SNR 
@  .DISB 
NUT 

1,20,2  {DEL  XC 
0,2,2  {NEW  XCCLOw) 

1  ,  •  YCGD  {APPLIED  Y  DISP 
1,3 

1,1, SEC  IAS  ABOVE 

1  ,  1 

2,  • DMBP 

0,4,2  I YC (LOW ) 

3, 3, SEC 
FLITS 
I , 0, SNC 
OKS 


i 


C-167 


00O56 'Oil  003 
0005?  *0.70405 
00060 ' 1  0-1400  FLITS: 

00061’ 10 3 00? 

0006?’ 00041? 

00063 ' 0 1 5003 
00064’0450?l  C  H  E  C.  S  : 
00065 1 C4 1 004 
00066  ’  0?40  i  55: 

00067  ’  0060035: 

00070 • 034004? 

0007 1  •  1  7 5005 
0007? ’00600 I ? 
00(173*000403 
0007  4 ’ 0  4  50? l  OKS: 
0007  S  ’  (14  1  004 

1 

0OO7  6 ’ 06047  7  CLIT: 
00077 ’1011 ?? 

001 00 ’000435 
00101 ’ 00600?? 

0010?' 000 117* 

00 103’ 000 1 44 
00104*000144 

00105*006005?  DUDE: 
00106’ 006006? 

00! 07 ’00601 4? 

001 10*030016? 

001  M  ’  102400 
001  1?  ’041 020 
001 1 3 ’ 04 1 O? i 
001  14*04]  0?-> 

001 1 5*006007? 

001 16*002662 

J 

00 1 1 7 ’ 047  5 1 5  MOMS: 

00 1 20 ’ 042526  V E 
00121 ’ O?0 i 04  D 
00122*000041  !* 

i 


I  S6 

JMP 

NFC- 

ADDr 

JMP 

DS<? 

STa 

STA 

LDA 

JSR 

LDA 

MOV 

JSR 

JMP 

STA 

STA 


3-2  S  INCREMENT  TC(PIGH) 

C  PECi 

1  *  1 

1-0*5 EC 
OKS 

3-2  »  Dt  CPF 1EMT  YCCHIGH) 

'•21-2  JDELYC 
0-  4,2 
1  »  .DMRN 

S.REBX  -KE-CLASSIFY 

3-.PFLG 

3-3-  SNR 

^DISB  »  PLOT  JUS1  THIS  BLOCK 

1-21-2  JDELYC 
0-4,2  j \Ew  YC (LOk  ) 


READS 

0 

M0V2L 

0*0, 56C 

JMP  DUDE 

JSR 

P  .MESS 

MOMS 

1  00. 

1  00. 

JSR 

f>  .MOT 

JSR 

0  .FORD 

JSR 

e.STEP 

LDA 

2, .DMBP 

SUB 

0*0 

STA 

C»20»  2 

STA 

0-21*2 

STA 

0-22*2 

JSR 

0.ALLB 

JMP 

ORE  T  3 

1  CHECK  FOR  Sk  0 
JOrF  =  MESS 


-C-ET  BLOCK  POINTER 
JiET  ALL  TO  0 
JDEL  X 
*  DEL  y 
-’DEL  AL 

J  Ur  DA  T  E  COMACTS 
' GO  BACK 


•TXT  *M0 


•  END 


'*  ^>0  ‘t'NM(NT  t  O'NUNCj  O* 1  ’C  E 


640 


In  accordance  with  letter  from  DAEN-RDC ,  DAEN-ASI  dated 
22  July  1977,  Subject:  Facsimile  Catalog  Cards  for 
laboratory  Technical  Publications,  a  facsimile  catalog 
card  in  Library  of  Cpngress  MARC  format  is  reproduced 
below. 


Voegele,  Michael  D 

Rational  design  of  tunnel  supports:  an  interactive  graphics 
based  analysis  of  the  support  requirements  of  excavations 
in  jointed  rock  masses  /  by  Michael  D.  Voegele,  Department  of 
Civil  and  Mineral  Engineering,  University  of  Minnesota, 
Minneapolis,  Minn.  Vicksburg,  Miss.  :  1).  S.  Waterways  Experi¬ 
ment  Station  ;  Springfield,  Va.  :  available  from  National 
Technical  Information  Service,  1979. 

v,  [S16]  p.  ill.  ;  27  cm.  (Technical  report  -  U.  S.  Army 
Engineer  Waterways  Experiment  Station  ;  GL-79-15) 

Prepared  for  Office,  Chief  of  Engineers,  U.  S.  Army,  Wash¬ 
ington,  D.  C.,  under  Contract  No.  DACW4S-74-C-0066. 

References:  p.  R-l  -  R-9. 

1.  Excavation.  2.  Interactive  graphics.  3.  Jointed  rock. 

4.  Rock  masses.  4.  Tunnel  supports.  I.  Minnesota.  University. 
Dept,  of  Civil  and  Mineral  Engineering.  II.  United  States. 
Army.  Corps  of  Engineers.  III.  Series:  United  States.  Water¬ 
ways  Experiment  Station,  Vicksburg,  Miss.  Technical  report  ; 
GL-79-15. 


